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ABSTRACT 

PROJECT  CONTROL  USING  THE  PROBLEM-ORIENTED 
LANGUAGE  PROJECT 


by 
LTJG  JOHN  THEODORE  MACDERMOTT,  CEC,  USN 


Submitted  to  the  Department  of  Civil  Engineering  on  August  21,  1967  in 
partial  fulfillment  of  the  requirements  for  the  degree  of  Master  of 
Science  in  Civil  Engineering. 


The  problem-oriented  language  PROJECT,  of  which  this  research 
forms  a  part,  was  developed  in  order  to  facilitate  the  use  of  CPM  and 
PERT  on  any  project  which  can  be  described  in  terms  of  work  items.  The 
area  with  which  this  thesis  deals  is  that  of  monitoring  a  project's  prog- 
ress. As  is  true  of  the  rest  of  the  PROJECT  subsystem,  nc  special  com- 
puter knowledge  is  necessary  to  use  this  feature  since  all  instructions 
to  the  computer  are  couched  in  the  language  of  project  management. 

The  preparation  of  PROJECT'S  progress  control  capability  was 
marked  by  two  phases.   The  first  phase  centered  around  the  development 
of  the  measures  to  be  used  as  monitors.  The  concept  underlying  this  de- 
velopmental work  was  that  of  comgarison, .  Actual  work  progress  and  costs 
are  compared  with  estimated  work  progress  and  costs  in  order  to  determine 
a  project's  status.   In  addition  to  being  able  to  determine  the  status  of 
the  project  as  a  single  entity,  the  status  of  any  subset  of  activities — 
called  sub-networks—  can  be  determined  also. 

The  second  phase  of  this  research  was  concerned  with  interfacing 
the  monitoring  feature  with  PROJECT.   It  was  during  the  implementation 
phase  that  the  algorithms  developed  earlier  were  translated  into  workable 
computer  programs,  compatible  with  PROJECT. 


Thesis  Advisor:  Professor  Albert  G.  H.  Dietz 

Title:  Professor  of  Civil  Engineering 
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CHAPTER  ONE 


Introduction 


Introduction 

PROJECT  is  a  problem-oriented  computer  language  which  was  designed 
and  developed  by  William  H.  Linder  in  the  Department  of  Civil  Engineer- 
ing at  the  Massachusetts  Institute  of  Technology.   PROJECT  is  a  subsys- 
tem of  the  Integrated  Civil  Engineering  JSystem  (ICES),   Briefly  described, 
the  capabilities  of  ICES  PROJECT  are: 

1.  to  represent  a  project  in  terms  of  work  items  and  time; 

2.  to  make  projections  (over  a  project's  lifetime)  of  in- 
curred costs  and  resource  consumption; 

3.  to  adjust  project  schedules  to  satisfy  time  or  resource 
constraints;  and 

A.   to  provide  a  method  of  monitoring  project  progress. 
The  last  item  in  the  list  of  PROJECT  capabilities — project  control—  is 
to  be  the  subject  of  this  paper.   The  concern  with  project  control  stems 
from  the  fact  that  a  prime  function  of  an  organization  which  undertakes 
a  project  of  any  sort  is  the  management  and  control  of  the  resources  as- 
sociated with  that  project.   Increased  emphasis  on  rapid  completion, 
brought  about  by  keen  marketing  competition  and  high  interest  rates  on 
borrowed  money,  and  the  technology  "explosion"  which  has  permeated 
nearly  every  field  of  endeavor  are  but  two  of  several  significant  factors 
which  have  helped  to  increase  both  the  difficulty  and  importance  of  man- 
aging and  controlling  capital  investment  projects. 

In  his  book  Control  and  Management  of_  Capital  Projects,  J.  W. 
Hackney  suggests  that  the  techniques  for  the  "control  of  projects  natur- 
ally group  themselves  into  those  related  to: 

.Capital  cost  —  estimating  and  controlling  the  money  invested 

•Time  —  planning,  scheduling  and  monitoring  for  smooth  progress 


and  tcward  early  completion 

♦Value  --  pre-determining  and  controlling  income  as  related  to  in- 
vestment, operating  costs  and  risks "1 

In  PROJECT,  the  progress  control  monitor  is  based  on  work  progress  and 
financial  progress. 

Because  it  was  recognized  that  the  project  manager  is  already  bur- 
dened with  a  good  deal  of  information,  a  prime  consideration  in  the  de- 
velopment of  the  project  control  monitor  was  that  it  provide  worthwhile 
information  yet  be  simple.   The  goal,  then,  was  to  provide  the  project 
manager  with  a  single  value  which  is  an  indicator  of  the  project's  sta- 
tus.  The  philosophy  behind  PROJECT'S  progress  control  feature  is  that 
of  "management  by  exception."  This  means  that  actual  work  and  cost  pro- 
gress are  compared  with  estimated  work  and  cost  progress  to  indicate 
those  areas  of  the  project  which  may  prevent  the  project  as  a  whole  from 
finishing  (1)  on  schedule  and  (2)  within  its  budget. 
The  Road  Ahead 

The  next  chapter  of  this  paper  deals  with  the  mathematical  formu- 
lation of  the  status  index  and  its  components.   Chapter  Three  discusses 
the  philosophy  of  computing  the  status  index  —  the  assumptions  and  limi- 
tations inherent  in  it.   In  the  fourth  chapter,  the  commands  for  using 
the  project  control  feature  are  reviewed.   Chapter  Five  is  devoted  to  a 
sample  problem  which  illustrates  how  all  phases  of  this  work  tie  together 
as  a  usable  part  of  the  PROJECT  subsystem.   The  last  section,  Chapter  Six, 
suggests  some  areas  in  which  more  work  might  be  done  and  concludes  by 


Control  and  Management  of  Capital  ProjectSj  J.  W.  Hackney,  John  Wiley  & 
Sons,  Inc.,  1965,  pg.  3. 
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presenting  some  general  observations.   In  Appendix  A,  the  interested 
reader  will  find  listings  of  the  programs  pertinent  to  PROJECT'S  prog- 
ress control  feature.   Appendix  B  briefly  describes  the  PROJECT  command 
structure. 
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CHAPTER  TWO 


The  Status  Ijridex  and_  I_ts  Components 

2.1  The  Work  Progress  Component 

2.2  The  Financial  Progress  Component 

2.3  The  Status  Index 
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The  Status  Index  and  Its  Components 

"Can  we  finish  on  time  and  remain  within  the  project's  budget?" 
This  question,  often  raised  by  project  managers,  points  to  two  items  which 
are  critical  to  any  project — time  and  money.   Concern  with  work  and  finan- 
cial progress  has  provided  the  motivation  for  the  development  of  a  status 
index  based  on  these  items.   The  status  index,  formed  from  the  product  of 
factors  representing  work  and  financial  progress  components,  forms  the 
basis  of  PROJECT'S  progress  control  feature. 
2.1  The  Work  Progress  Component 

Before  developing  the  work  progress  component  of  the  status  index, 
it  is  necessary  to  present  some  definitions. 

!•   Original  project  duration;  J_ 

This  is  the  original  estimate  of  the  project  duration— the  re- 
sult of  the  first  unrevised,  but  complete,  planning  schedule.   Ex- 
cept for  a  situation  to  be  discussed  later,  T  is  a  project  constant. 

2«   Revised  pro j ec t  duration;   T' 

This  is  the  latest  revised  estimate  of  project  duration.   It 
is  based  on  data  reported  from  the  project  site  and  is  equal  to  the 
time  from  the  project  start  to  the  present  plus  the  most  recent  es- 
timate of  how  long  it  will  take  (again,  measuring  from  the  present) 
to  finish  the  project, 

3.   Elapsed  time;   t_ 

_t  is  the  time  from  project  start  to  the  present. 

^ •   Remaining  time ;   t ' 

t '  represents  the  latest  revised  estimate  (measuring  from  the 
present)  of  how  much  longer  it  will  take  to  finish  the  project. 
As  the  project  advances,  tj_   is  estimated  over  successively  smaller 
time  intervals  and  should,  therefore,  be  increasingly  accurate.  At 
the  project  start,  T  =  T'  =  t'. 

5.   Initial  amount  of  time  recoverable;   K 

K  is  the  amount  of  time  which  can  be  "made  up"  over  the  project 
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lifetime  by  accomplishing  the  appropriate  activities  as  quickly  as 
possible.   K  is  estimated  at  the  start  of  the  project;  it  is  a  para- 
meter evaluated  for  each  project  and  is  the  amount  of  time  recover- 
able when  t  -   0. 

6«  Current  amount  of_  time  recoverable;   J_ 

This  is  the  amount  of  time  which  can  be  made  up  at  any  point 
in  the  project's  lifetime.   J  is  a  function  of  the  original  project 
duration,  the  total  time  recoverable  and  the  elapsed  time  — 
J  =  f  (T,K,t). 

As  the  project  advances,  less  and  less  time  can  be  made  up  by 

crashing  activities.   Just  how  the  amount  of  time  which  can  be  made  up 

behaves  is  not  clear,  but  to  a  first  approximation  it  is  reasonable  to 

assume  that  it  decreases  linearly.  With  this  assumption  of  linearity,  let 

J  «  K(l  -  -*-) 

T  (2.1) 

When  J  is  less  than  (T'  -  T)  the  project  will  take  more  time  to  complete 

than  can  be  made  available  even  if  all  succeeding  activities  are.  crashed, 

Figure  2.1  shows  graphically  what  has  been  presented  thus  far.   The 
significance  of  the  parameter  K  becomes  clear  at  this  point.  As  the 
value  which  fixes  the  time  recoverable  curve  (here,  the  straight  line 
represented  by  J),  K  must  be  carefully  determined  and  ought  not  be  modi- 
fied unless  the  project  schedule  is  changed.   Figure  2,1  suggests  a  num- 
ber of  other  noteworthy  points.   First,  for  any  value  of  time  t  (where  t 
is  less  than  T)  the  value  (ordinate)  of  the  corresponding  point  on  the 
line  J  represents  the  time  which  could  be  made  up  by  making  a  maximum 
effort.   Next,  the  value  of  the  ordinate  at  a_  is  the  amount  of  time  that 
the  project  is  behind  schedule.   Finally,  if  the  point  a_  and  the  line  J_ 
happened  to  be  coincident,  the  project  can  be  finished  on  time  if  a  maxi- 
mum effort  is  made. 

In  terms  of  the  previous  definitions,  the  work  progress  component  of 
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14 
the  status  index  is 

*w"  J  »  (T1  -  T)  (2.2) 

J 

When  actual  work  progress  agrees  exactly  with  what  was  scheduled,  Iw  ■  1. 
If  the  actual  work  is  further  along  than  was  anticipated  when  the  sched- 
ule was  prepared,  Iw  reflects  this  fact  by  assuming  a  value  greater  than 
1.   Should  actual  work  represent  less  of  an  accomplishment  than  was  plan- 
ned for  a  particular  time,  I  will  be  less  than  unity.   These  conditions 
are  summarized  in  the  following  table. 

Value  of  Iw  Implication 

less  than  one  behind  schedule 

equal  to  one  exactly  on  schedule 

greater  than  one  ahead  of  schedule 

In  the  definition  of  the  project  parameters  T  and  K,  circumstances 
were  alluded  to  under  which  these  values  might  change.   If  it  happens 
that  J  is  less  than  (T'  -  T)  it  is  unwise  to  continue  to  deal  in  terms 
of  the  current  network  because,  based  on  the  estimate  of  time  recoverable, 
there  is  no  possibility  of  finishing  by  time  T.   In  this  situation,  the 
network  must  be  modified  to  reflect  (1)   the  work  actually  finished  and 
(2)   changes  in  the  work  plan.   The  project  network  should  be  modified  to 
represent  this  "new"  project  and  revised  values  of  the  parameters  T  and  K 
should  be  associated  with  the  revised  project. 

When  t  *  T,  J  =  0  and  the  work  progress  measure  2.2  goes  to  infinity. 
This  means  that  the  work  progress  component  (and  hence  the  status  index) 
cannot  be  computed  for  the  last  day  of  the  project.   This  does  not  con- 
stitute a  major  limitation  since  the  value  of  the  status  index  when  the 
project  is  essentially  complete  is  not  of  great  interest.   It  is_  of  in- 
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tercst  to  note  the  effect  of  the  difference  (T'  -  T)  on  the  behavior  of 
the  work  progress  component.   When  the  project  is  on  schedule,  Iw  is  one, 
suggesting  that  T'  -  T.   If  the  project  is  behind  schedule,  (T1  -  T)  is 
greater  than  zero;  the  quantity  (T'  -  T)  acts  to  decrease  the  numerator, 
making  it  smaller  than  the  denominator.   In  this  case,  should  the  numera- 
tor become  negative  (that  is,  J  less  than  (T'  -  T)),  the  situation  is  in- 
feasible  with  respect  to  time  and  the  project  must  be  reconsidered. 
Should  the  project  be  ahead  of  schedule  (T'  -  T)  is  negative;  this  quan- 
tity now  acts  to  increase  the  value  of  the  numerator  in  2.2.   In  this 
case,  I  will  grow  larger  than  one,  behaving  as  advertised.  There  may 
be  some  concern  with  the  fact  that  the  denominator  of  2.2  decreases  while 
the  numerator  remains  relatively  constant  (approximately  equal  to  (T1  -T)). 
This  concern  is  unwarranted  since  (T'  -  T)  strictly  positive  means  that 
the  project  will  finish  on  day  T'  which  occurs  before  day  T.   Mathematic- 
ally speaking,  this  means  that  J  is  bounded  from  below  by  a  value  larger 
than  zero,  hence  the  denominator  does  not  go  to  zero. 
2*2  The  Financial  Progress  Component 

As  was  indicated  at  the  outset,  the  general  concept  behind  the 
status  index  and  its  components  is  to  ££m£are.  actual  progress  with  ex- 
titnated  progress.   In  the  financial  component  of  the  status  index,  this 
goal  is  achieved  by  relating,  for  a  specific  time  t  during  the  project's 
lifetime,  (1)   the  amount  of  money  actually  spent,  (2)   the  amount  sched- 
uled to  have  been  spent  and  (3)   the  original  estimate  of  the  total  pro- 
ject cost. 

Before  proceeding  with  the  discussion,  it  is  necessary  to  consider 
the  following  terms: 
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1.  Let  C  represent  the  original  estimate  of  the  total  project  cost. 

2.  Let  A  be  the  amount  of  money  scheduled  to  be  spent  by  time  t. 

3.  Let  A'  represent  the  amount  of  money  actually  spent  at  time  t. 
For  the  sake  of  clarity,  a  graphical  interpretation  of  these  symbols  ap- 
pears on  the  following  page  in  figure  2.2.   Two  points  can  be  made  con- 
cerning this  diagram.   First,  the  actual  spending  curve  is  known  only 
for  the  completed  part  of  the  project;  therefore,  for  time  subsequent  to 
t  this  curve  is  represented  by  a  dotted  line  to  indicate  that  it  is  an 
"educated  guess."  Of  course,  since  t  approaches  T,  the  "educated  guess" 
is  based  on  an  ever  decreasing  time  interval  and  should,  therefore,  be 
increasingly  accurate.   The  second  point  to  be  made  is  that  the  terminal 
points  of  the  actual  spending  curve  and  the  estimated  project  cost  curve 
need  not  be  coincident— that  is,  the  project  may  cost  more  (or  less)  than 
the  original  estimate. 

In  consonance  with  the  "definitions"  of  the  symbols  A,  A'  and  C, 
the  financial  progress  component  is 

(2.3) 

The  cost  progress  measure  (2.3)  behaves  in  precisely  the  same  way 
as  the  work  progress  measure  (2.2).   A  value  of  I  equal  to  one  implies 
that  scheduled  expenditures  and  actual  expenditures  agree  exactly — that 
is,  A'  ■  A.   A  value  of  I  larger  than  one  means  that  (A'  -  A)<0  and 
less  money  has  been  spent  by  time  t  than  was  originally  estimated.   Sim- 
ilarly, if  I  is  less  than  unity,  then  at  time  t  more  money  has  been 
spent  than  was  planned  and  (A'  -  A)>0.   The  following  table  summarizes 
the  implications  of  various  values  of  the  financial  progress  component 
of  the  status  index. 
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Value  of  Ic  Implication 

less  than  one        overrunning  budget 
equal  to  one  exactly  on  budget 

greater  than  one        underrunning  budget 

2 . 3  The  Status  Index 

PROJECT'S  progress  control  feature,  the  status  index,  is  the  pro- 
duct of  the  cost  and  time  measures: 

SI  -  lc   x  T„  (2.4) 

The  status  index  indicates  agreement  between  planned  and  actual  progress 
when  its  value  is  one.  A  value  larger  than  unity  indicates  actual  prog- 
ress is  ahead  of  planned;  a  value  less  than  one  suggests  that  actual 
progress  has  fallen  behind  scheduled  progress. 

Since  the  status  index  is  a  product,  it  is  necessary  to  be  aware  of 
the  cancelling  effects  of  its  formation.   For  example,  if  Ic  =  0.5  and 
Iw  «  2.0  then  SI  =  (0.5)x  (2.0)  =  1.0.   This  value  xrould  imply  that  the 
project  was  on  schedule  with  respect  to  both  cost  and  work  progress- 
certainly  this  is  not  correct.   The  problem  just  described  constitutes 
one  aspect  of  the  more  general  question  of  interfacing  the  status  index 
with  ICES  PROJECT.   This  is  to  be  the  subject  of  the  next  chapter. 
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CHAPTER  THREE 


The  Status  Index  and  ICES  PROJECT 

3.1  Data  Structure 

3.2  Computation  of  the  Cost  Component 

3.3  Computation  of  the  Work  Progress  Component 
3. A  Project  Sub-networks 
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The  Status  Index  and  ICES  PROJECT 

Providing  PROJECT  with  a  progress  monitor  can  be  thought  of  as  a 
two  step  operation.   The  first  step,  considered  in  the  last  chapter,  in- 
volved developing  a  suitable  monitor.  The  second  step  centers  around 
the  problem  of  interfacing  the  monitor  with  PROJECT.  As  will  be  shown, 
more  is  involved  in  the  implementation  of  the  status  index  than  just  pro- 
gramming considerations.  The  philosophy  behind  the  computations,  toge- 
ther with  the  assumptions  and  limitations  inherent  in  the  monitoring 
feature,  are  the  subject  of  this  chapter. 
3.1  Data  Structure 

Each  project  may  have  as  many  as  eight  disk  files  associated  with 
it.   These  files,  called  NAME1  through  NAME8  (viz.  WALTHAM3)  are  used 
to  store  data  on  the  particular  paoject  under  consideration. 

PROJECT'S  progress  monitoring  feature  deals  with  disk  file  NAME8. 
The  structure  of  this  file  consists  of  three  levels:   two  levels  are 
used  for  bookkeeping  and  can  be  thought  of  a  pointers,  the  third  level 
is  used  for  data  storage.   The  first  time  reported  progress  data  is 
stored  for  a  particular  project,  NAME8  is  established  by  creating  a 
first-level  logical  record  ten  words*  long.   The  first  word  of  this  rec- 
ord contains  the  address  of  a  second-level  logical  record  which  is  NOACT 
words  long,  where  NOACT  is  the  number  of  activities  in  the  network. 
Each  word  of  the  second  logical  record  contains  a  zero  when  it  is  first 
created.   When  progress  data  is  reported  for  a  particular  activity,  a 
third-level  record  corresponding  to  that  activity  is  created;  this  rec- 
ord is  also  ten  words  long.   The  address  of  this  third  level  record  is 

*  A"word"  in  computer  terminology  is  a  unit  of  storage. 
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stored  in  the  second  level  logical  record  in  the  position  corresponding 
to  the  activity  under  consideration.*  The  logical  record  on  the  third 
level  contains  the  reported  progress  data*  The  first  word  of  this  record 
contains  the  cost  (if  reported),  the  second  word  contains  the  reported 
activity  finish  date  (if  reported)  and  the  third  word  contains  the  start 
date  (if  reported).   All  dates  are  stored  as  project  workdays.   If  any 
of  the  possible  data  items — cost,  finish  date  or  start  date — are  omitted, 
the  corresponding  word  of  the  activity  data  record  is  not  changed;  this 
means  that  until  a  cost,  finish  or  start  is  reported,  the  corresponding 
word  in  the  activity  data  record  contains  a  zero. 

In  order  to  add  some  measure  of  clarity  to  the  foregoing  descrip- 
tion of  NAME8,  the  following  example  and  diagrams  are  presented.   Con- 
sider a  project  having  seven  activities.   Assume  progress  is  first  re- 
ported on  the  third  activity:   this  creates  disk  file  NAME8  for  the  pro- 
ject and  stores  the  data  as  shown  in  figure  3.1  on  the  following  page. 
Arrows  are  used  to  denote  the  pointer  arrangement  alluded  to  earlier. 
If  progress  is  subsequently  reported  on  the  second  activity,  NAME8  would 
be  structured  as  shown  in  figure  3.2. 

It  seems  that  much  space  is  unused  in  NAME8.   This  i_s  the  case; 
however,  it  is  anticipated  that  the  uncommitted  space  will  be  used  in 
connection  with  resource  allocation  and  leveling  in  the  near  future. 
3 . 2   Computation  of  the  Cos_t  Component 

As  discussed  earlier,  the  cost  component  of  the  status  index  is 


*  The  activities  comprising  a  network  are  ordered  topologically.   Thus, 
if  a  network  consists  of  activities  5,  10,  20,  25  and  30,  activity  5  is 
the  first  activity,  activity  10  is  the  second,  and  so  on.   If  progress 
is  reported  on  the  third  activity,  the  third  word  of  the  second-level 
logical  record  will  contain  the  address  of  a  third-level  logical  record 
which  itself  contains  the  reported  progress  data  for,  in  this  example, 
activity  20. 
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*c  =  C  "  (A'  -  A) 

C 

In  order  to  carry  out  this  computation  for  time  t,  it  is  necessary 
to  know  (1)   the  sum  of  the  estimated  costs  for  each  activity  (this  is  C), 
(2)   the  amount  of  money  planned  to  be  spent  by  time  t  (this  is  A)  and  (3) 
how  much  money  was  actually  spent  by  time  t  (this  is  A').   There  are  two 
very  significant  points  to  be  made*   First,  costs  are  based  strictly  on 
activity  costs;  no  effort  is  made  to  take  into  account  overhead  costs. 
The  second  point  is  that  if  an  activity  is  in  progress  at  the  time  a  com- 
putation is  called  for  a  linear  portion  of  the  cost  assigned  to  that  ac- 
tivity is  taken.   For  example,  assume  that  a  particular  activity  has  been 
assigned  an  estimated  cost  of  $600;  if  a  computation  is  requested  when 
the  activity  ought  to  be  two-thirds  complete,  this  activity's  contribu- 
tion to  the  estimated  cost  to  date  figure  will  be  $400. 

The  method  of  determining  the  estimated  cost  to  date  for  the  project 
is  most  clearly  explained  by  using  a  flow  chart  of  operations,  as  found 
in  figure  3.3  on  the  next  page.   The  actual  cost  to  date  is  computed  in 
exactly  the  same  fashion  except  that  if  an  actual  cost  for  an  activity 
has  not  been  reported,  it  is  assumed  that  the  estimatgjd  cost  for  that  ac- 
tivity is  accurate  and  is  a  reasonable  figure  on  which  to  base  the  com- 
putation.  If  it  is  found  that  there  is  neither  an  actual  nor  an  estimated 
cost  for  a  particular  activity  this  activity  makes  no  contribution  at  all 
to  the  actual  cost  to  date  figure. 

It  is  clear  that  a  limitation  of  the  system  is  that  an  estimated  cost 

must  be  available  on  at  least  one  activity  if  the  cost  component  or  the 

status  index  is  to  be  computed.   This  requirement  obtains  because  if  no 

estimated  costs  are  available,  the  cost  component  would  be  0^,  hence 
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Figure  3.3:   Determining  the  estimated  total  cost  to  date 
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indeterminant.   A  second  limitation  is  that  if  actual  costs  are  not  re- 
ported for  activities,  then  in  equation  2.3  A  =  A'  and  Ic  ■  1.0.   Thus, 
if  actual  costs  are  not  reported,  the  status  index  is  nothing  more  than 
the  work  progress  component  tagged  with  a  different  name. 
3.3  Computation  o_f  the  Work  Progress  Component 

The  work  progress  component  of  the  status  index  is 


The  determination  of  J  is  straight-forward  since  K,  t  and  T  are 
known.   When  t  =  T,  as  was  pointed  out  earlier,  J  is  zero  and  the  com- 
putation of  Iw  is  not  allowed;  in  PROJECT,  a  check  is  always  made  to  in- 
sure that  J  has  a  non-zero  value. 

Assuming  that  J  is  valid,  it  remains  only  to  determine  the  value  of 
T',  the  latest  revised  estimate  of  the  job  duration.   This  computation 
is  based  on  the  reported  progress  information  for  the  network  activities 
which  has  been  stored  in  NAME8.   Reported  progress  data  on  an  activity 
may  consist  of  an  estimated  total  cost,  a  start  date,  a  finish  date  or 
any  non-repetitive  combination  of  the  these  items.   Since  costs  play  no 
role  in  computing  the  work  progress  component,  there  are  four  cases  to 
be  considered  for  each  activity  in  the  network:   (1)   Neither  a  start 
nor  a  finish  has  been  reported.   In  this  case,  it  is  assumed  that  the 
duration  as  originally  input  is  accurate  and  that  the  activity  will  be 
executed  at  the  time  specified  by  the  working  schedule.   (2)  A  start 
date  has  been  reported  but  a  finish  date  has  not.   In  this  situation, 
the  original  activity  duration  is  used  to  compute  a  finish  date  for  the 
activity;  the  activity  under  consideration  is  then  fixed  in  time  by  these 
two  dates.   (3)   A  finish  date  has  been  reported  but  a  start  date  has 
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not.   This  case  is  analogous  to  the  preceding  one  in  that  the  original 
activity  duration  and  the  reported  finish  date  are  used  to  compute  a 
start  date;  these  dates  then  serve  to  fix  the  activity  in  time,   (A) 
Both  a  start  and  finish  date  have  been  reported.   Here,  the  given  dates 
fix  the  activity  in  time  and  are  used  to  compute  a  new  activity  duration. 

The  primary  function  of  the  reported  start  and/or  finish  data  is  to 
fix  certain  activities  in  the  network  with  respect  to  time.  This  "fixed 
schedule"  information  is  used  as  input  data  to  perform  the  standard  for- 
ward pass  algorithm;  this  forward  flowing  of  the  network  yields  the  la- 
test revised  estimate  of  the  job  duration,  T'.   Note  that  a  backward  pass 
is  not  made  using  the  fixed  schedule  information.   This  is  because  the 
backward  pass  is  useful  for  determining  (1)   the  network's  critical  path 
and  (2)   total  and  free  float  associated  with  each  activity;  neither  of 
these  items  is  of  particular  concern  when  determining  the  work  progress 
component  of  the  status  index. 
3*4  Project  JSub-ne twor ks 

Thus  far  all  discussion  has  centered  around  performing  progress 
monitoring  computations  for  the  project  network  as  a  whole.   It  is  en- 
tirely reasonable,  quite  likely,  in  fact,  that  the  project  manager  may 
be  deeply  concerned  about  the  performance  of  one  or  several  subsets  of 
network  activities.   PROJECT  provides  several  methods  of  identifying  such 
subsets — referred  to  here  as  project  sub-networks.   Moreover,  PROJECT'S 
progress  control  feature  is  capable  of  performing  status  index  computa- 
tions for  sub-networks  in  a  fashion  similar  to  the  method  used  for  the 
network  as  a  whole.   The  word  "similar"  is  stressed  in  the  preceding 
sentence  because  the  network  and  sub-network  computations  differ  on  one 
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basic  point  as  will  be  explained  in  the  following  paragraph. 

In  performing  a  status  index  computation  for  a  sub-network,  all  ac- 
tivities not  a  part  of  the  subset  being  considered  are  assigned  a  zero 
duration.   The  idea  here  is  to  retain  activity  interdependencies  while 
eliminating  information  which  may  be  prejudicial  to  the  computation  for 
the  sub-network.  A  consequence  of  assigning  zero  durations  to  activi- 
ties not  in  the  sub-network  is  that  reported  progress  data  on  activities 
which  are  a  part  of  the  sub-network  cannot  justifiably  be  used  to  fix 
these  activities  in  time  as  was  done  when  the  computation  was  made  for 
the  network  as  a  single  entity.   The  following  example  will  serve  to 
clarify  this  point.   Consider  the  network  shown  in  figure  3.4a«   Suppose 
the  sub-network  of  interest  consists  of  activities  10  and  40.   The  sub- 
network can  be  pictured  as  in  figure  3.4b.   The  sub-network  duration  is 
four  time  units.   Now  assume  (1)   that  activity  40  started  on  schedule 
(day  8)  but  finished  one  day  late  (day  10)  and  (2)   that  sub-network 
computations  for  determining  T'  were  based  on  the  same  algorithm  used 
for  the  network  as  a  whole.   Under  these  conditions,  activity  40  would 
be  constrained  to  start  on  day  8  and  finish  on  day  10;  this  would  yield 
a  sub-network  duration  of  nine  time  units  when,  in  fact,  it  took  but  five 
time  units  to  complete  the  activities  of  interest.   In  order  to  avoid 
this  misleading  situation,  the  reported  progress  data  for  a  sub-network 
of  activities  is  used  only_  to  determine  revised  durations  for  activities 
comprising  the  subset.   Thus,  unless  both  a  start  and  finish  date  are 
given  for  an  activity,  it  is  assumed  that  the  original  duration  is  ac- 
curate and  may  be  used  as  a  basis  for  computing  the  latest  revised  esti- 
mate of  the  sub-network  duration.   A  very  significant  ramification  of 
this  basis  for  computing  the  sub-network  T'  is  that  so  long  as  the 
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durations  of  activities  in  the  sub-network  do  not  change,  Iw  for  that 
subset  of  activities  will  be  unity,  regardless  of  whether  the  activity 
was  completed  between  its  scheduled  dates.   For  clarification  of  this 
point,  consider  the  network  shown  in  figure  3. Ac.   Suppose  activity  20 
actually  took  five  time  units  to  complete  instead  of  four  as  planned, 
Both  the  latest  revised  estimate  and  the  original  estimate  of  the  sub- 
network (activities  10  and  40)  duration  would  be  five  time  units  and  are 
not  affected  by  the  delay  in  activity  20  since  this  activity  is  not  a 
part  of  the  sub-network  of  interest. 

In  addition  to  the  method  of  determining  the  sub-network  duration, 
the  method  of  arriving  at  the  amount  of  time  recoverable  for  a  sub- 
network must  be  discussed.   This  computation  is  quite  straight-forward. 
The  original  estimate  of  the  sub-network  duration  is  divided  by  the  ori- 
ginal estimate  of  the  project  duration;  this  quotient  is  multiplied  by 
the  estimate  of  time  recoverable  for  the  project  and  the  result  is  taken 
as  the  time  recoverable  for  the  sub-network.   For  example,  say  project 
has  a  duration  of  forty  days  and  that  a  sub-network  of  interest  has  a 
duration  of  ten  days.   If  the  estimate  of  time  recoverable  for  the  pro- 
ject were  eight  days,  then  the  time  recoverable  for  the  sub-network  would 

be  (10)  x  8  or  two  days. 
40 
In  closing  this  discussion  of  sub-networks  and  the  computations  re- 
lated to  them,  it  should  be  pointed  out  that  cost  computations — both  es- 
timated and  actual — are  carried  out  in  exactly  the  same  way  as  they  are 
performed  for  the  network  as  a  whole. 

This  chapter  has  dealt  with  the  question  of  interfacing  the  project 
monitor  with  ICES  PROJECT.   Pertinent  algorithms,  limitations  and  assump- 


30 


o> 

o> 

o 

r-i 

00 

00 

w 

Pi 
a 

Vi 

00 

00 

o 

CM 

ST 

<f 

<f 

NO 

oo 

o 

CO 

CM 

<r 

sO 

AS 

§ 

e 


s 


v 


<r 

<T 

o 

CO 

tH 

r-t 

31 


m 


o 


m 


»tf 

<<r 

O 
CM 

o 

«* 

«<r 

w 

H 
O 

< 

C*5 

CO    CO 

sr 

<• 

o 

CO 

o 

<r 

<r 

vr 

<■ 

o 

Cl 

«H 

iH 

o 

1 

(9 


(0 
O 
•H 


4J 

M-4 

O 

to 

c 


en 

•H 

to 
c 
o 

U 

§ 

0) 

c 
I 

.O 

to 

V 

H 


4) 

D 

CO 


32 


tr» 

m 

O 

«H 

<T 

as 

W 

to 
•J 

H 
O 

< 

g 

P 

to 

►J 

.12 

§ 

c 
I 

M 
0) 


St 

O 

m 
O 

<r 

sr 

<r 

o 

o 

•a- 

<r 

<r 

<r 

o 

■H 

m 

r-l 

rH 

O 

« 

o 


(0 

c 


C 
o 

« 

u 

o 


4J 

o 


Cd 


u 

60 


33 


tions  have  been  discussed  in  detail.   The  computer  programs, 
illustrating  how  these  algorithms,  limitations  and  assumptions  have 
been  used  in  this  development,  may  be  found  in  Appendix  A  of  this 
paper.   The  next  section,  Chapter  Four,  presents  the  commands 
associated  with  PROJECT'S  progress  control  feature. 
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CHAPTER  FOUR 


The  Commands  A ss ocla t ed_  with  PROJECT'S  Progress  Monitoring  Feature 

4.1  The  PROJECT  Command  Structure 

4.2  Commands  —  Input 

4.3  Commands  —  Output 
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The  Commands  Associated  with  PROJECT'S  Progress  Monitoring  Feature 
A  basic  part  of  any  problem-oriented  computer  language  is  the  com- 
mands which  define  the  user-subsystem  interface.   For  this  reason,  it 
is  of  value  to  give  a  brief  description  of  how  command  requests  are 
handled  by  ICES  PROJECT.   The  following  steps  effectively  summarize  this 
procedure: 


Step  1:      User  prepares  and  submits  com- 
mand 

Step  2:      The  ICES  Command  Interpreter 
"reads"  the  command 

Step  3:      On  the  basis  of  what  was  read 
by  the  Command  Interpreter, 
certain  programs  are  executed 

Step  4:      Icetran  programs  compute  re- 
quested results  and  output  them  to 
the  user. 


Illustrated  and  discussed  in  this  chapter  are  the  commands  which 
have  been  written  for  use  with  PROJECT'S  progress  control  feature.   The 
purpose  is  to  examine  the  capabilities  of  the  commands  so  that  the  in- 
terested user  may,  if  necessary,  modify  them  to  suit  his  own  needs. 
4 ♦  *  T^e  PROJECT  Cjmmand_  Structure 

Before  embarking  on  a  discussion  of  the  specific  commands  which 
constitute  a  part  of  the  progress  monitoring  feature,  it  is  worthwhile 
to  make  some  general  observations  concerning  the  format  of  command  com- 
position in  ICES  PROJECT.   All  PROJECT  commands  are  composed  of  three 
parts: 
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1)  an  operation  name, 

2)  a  data  lable  and 

3)  an  object  phrase 

The  operation  name  is  the  first  word  of  any  command;  it  indicates 
the  general  type  of  operation  to  be  carried  out.  The  data  lable  speci- 
fies whether  the  command  applies  to  all  project  networks  handled  by 
PROJECT  at  a  given  time  or  to  a  particular  project  network.   Finally, 
the  object  phrase,  which  may  consist  of  one  or  more  words  and  numbers, 
serves  to  specify  more  precisely  the  nature  of  the  work  to  be  done  by 
a  command.   For  a  definitive  discussion  of  the  commands  associated  with 
the  subsystem,  the  reader  is  referred  to  The  Use  of  ICES  PROJECT2;  the 
brief  overview  presented  here  should,  however,  provide  the  background 
necessary  for  the  ensuing  examination  of  the  commands  specifically  re- 
lated to  the  progress  monitoring  feature. 

The  basic  operation  names  used  by  PROJECT'S  monitoring  feature  are: 
ASSIGN,  PRINT,  PLOT  and  REPORT.   In  the  remaining  portion  of  this  chap- 
ter, the  basic  operation  names  are  examined  with  a  view  towards  build- 
ing useful  commands  for  project  control, 
4 • 2  Commands --INPUT 

It  was  indicated  in  Chapter  Two  that  two  classes  of  data  must  be 
provided  in  order  to  use  PROJECT'S  progress  monitor.   The  first  type  of 
information  is  the  reported  activity  progress  data.   The  command  to  be- 
gin storage  of  this  data  is  Command  1: 


2 

2!l£.  H££,  £l  I££l  Z£2iE£X»  Bernard-Andre  Genest  (Editor),  Department  of 
Civil  Engineering,  Massachusetts  Institute  of  Technology,  Cambridge, 
Mass.,  1967. 


I  PROGRESS] 
REPORT  (Vojname*)    \  START    {  (AS  °F)  date* 

(finish  ) 

The  cards  which  follow  Command  1  are  the  activity  progress  data  cards. 
The  first  number  on  each  card  must  be  the  activity  number  (if  an  ac- 
tivity-on-node  network)  or  numbers  (if  an  activity-on-arrow  network). 
As  indicated  above,  Command  1  may  take  any  of  four  forms  depending  upon 
which  reporting  option  is  desired.  Designate  option  la  to  be  PROGRESS, 
lb  to  be  COST,  lc  to  be  START  and  Id  to  be  FINISH.   Consider  command  op- 
tion la: 

REPORT  ('projname')  PROGRESS  (AS  OF)  date 
On  the  data  cards,  following  the  activity  number  may  appear  (in  any^  or- 
der) the  word  START  followed  by  the  start  date,  FINISH  followed  by  a 
finish  date  and  COST  followed  by  an  amount.   The  data  may  be  input  with- 
out using  the  modifiers  START,  FINISH  and  COST  by  preparing  the  data 
cards  so  that  the  order  of  information  is  activity  number (s),  start 
date,  finish  date  and  cost.   When  the  "no  modifier"  input  option  is  used, 
both  a  start  and  finish  date  must  be  specified;  moreover,  these  dates 
must  be  calendar  dates  (e.g.  1  July  1967).   With  the  "no  modifier"  in- 
put form,  the  cost  data  for  a  particular  activity  is  optional  and  may  be 
omitted.   For  the  command  option  1  with  modifiers  any  non-repetitive 
combination  of  the  words  COST,  START  and   FINISH  is  acceptable.   Thus, 
the  PROGRESS  command  may  be  used  to  store  information  on  only  start 
dates,  only  finish  dates,  finish  dates  and  costs,  etc. 

Progress  reporting  options  lb,  lc,  and  Id  (corresponding  to  COST, 
START,  and  FINISH,  respectively)  constitute  subsets  of  the  PROGRESS 

*  See  Appendix  B 
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command  in  that  they  are  used  when  data  is  reported  on  just  costs,  only 

start  dates  or  just  finish  dates.   For  these  options,  too,  the  identi- 
fier (the  word  COST,  START  or  FINISH)  may  be  omitted. 

The  last  card  in  a  series  of  data  cards  should  have  the  word  LAST 
punched  on  it.   This  insures  that  the  ICES  command  interpreter  will  pass 
on  to  the  subsequent  command  in  the  normal  fashion. 

A  significant  point  should  be  made  regarding  the  reporting  of  pro- 
gress.  There  is  no  reason  why  estimates  of  activity  finishes,  starts  or 
costs  cannot  be  submitted.   Assuming  that  such  data  is  prepared  with 
care,  this  practice  will  result  in  a  more  comprehensive  comparison  be- 
tween actual  and  planned  work  than  would  result  if  this  procedure  is  not 
followed. 

The  second  class  of  input  data  referred  to  earlier  consists  of  a 
single  number.   It  is  the  amount  of  time  recoverable  and  was  denoted  by 
the  symbol  K  in  Chapter  Two.   Once  the  amount  of  time  recoverable  has 
been  estimated,  Command  2  is  used  to  store  it: 

ASSIGN  ('projname')  TIME  (RECOVERABLE)   K  <  WEEKS J    • 
where  k  represents  the  time  recoverable  in  units  of  days  or  weeks,  with 
days  assumed  if  neither  time  unit  is  specified.   Should  the  user  neglect 
to  assign  it,  fifteen  percent  of  the  job  duration  is  automatically  taken 
as  the  amount  of  time  recoverable;  a  message  indicating  this  is  printed 
out.   If,  after  the  initial  assignment  of  time  recoverable,  it  is  de- 
sirable to  modify  this  estimate,  Command  2  should  be  employed  again. 
A .  3  Commands — £utj£ut 

PROJECT'S  progress  control  feature  provides  several  very  useful 
output  features.  All  of  them  stem  from  two  basic  operation  names: 
PRINT  and  PLOT. 
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If  the  value  of  the  status  index  or  any  of  its  components  is  de- 
sired for  a  sjLngJLe  date,  the  appropriate  option  of  Command  3  ought  to 
be  used: 

(STATUS^  (  I   phased  \ 

PRINT   ('projname')   INDEX   (FOR)  \    TIME  V  (AS  OF)   date  I  /selectA  j 

t  COST  J  \  \_list  )    1 

It  was  pointed  out  earlier  that  if  the  status  index  is  requested,  both 

of  its  components  will  be  examined  to  see  if  they  differ  from  unity  by 

more  than  one-tenth;  if  there  is  an  offending  component,  its  value  is 

printed.   As  is  indicated  in  Command  3  and  as  was  discussed  in  Chapter 

3,  it  is  possible  to  request  the  status  index  or  its  components  for  a 

pre-defined  phase  or  on  the  basis  of  some  user-defined  selection  option. 

For  more  detail  on  these  selection  options,  the  reader  is  referred  to 

Chapter  10  of  The  Use  of  ICES  PROJECT. 

Should  the  value  of  any  project  monitor  be  desired  as  it  varies 

between  two  specified  dates,  Command  A  would  be  used: 

(STATUS^ 
PRINT  ('projname')  INDEX  (FORK  TIME  /BETWEEN  date  1  and  date  2 

\  COST  j 

If  the  interval  between  the  first  date  and  the  second  is  less  than  100 
workdays,  increments  are  in  steps  of  five  workdays;  if  the  interval  is 
larger  than  100  workdays,  increments  are  in  steps  of  10  workdays. 

Of  great  value  in  examining  both  project  and  sub-network  progress 
trends  is  a  graphical  display  of  the  status  index  (or  the  requested  com- 
ponent) versus  time.   Command  5  was  developed  just  for  this  purpose; 

[status^ 

PLOT  ('projname')  INDEX  (FOR)  J  TIME  I  BETWEEN  date  1  and  date  2 

[COSTJ  V^list 

The  comments  regarding  the  incremental  stepping  apply  here  as  they  did 
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for  Command  4.   Moreover,  in  both  Commands  4  and  5  it  makes  no  differ- 
ence whether  the  starting  date  is  date  1  and  the  finish  date  is  date  2 
or  vice  versa.   A  significant  point  regarding  Commands  4  and  5  is  that 
they  permit  the  computation  of  a  status  index  for  any  point  in  time 
which  falls  within  the  project's  lifetime.   Thus,  the  project  manager 
may  request  a  computation  for  some  future  time  in  order  to  get  a  pro- 
jection of  project  status  if  present  progress  trends  continue.   When- 
ever progress  is  reported  using  any  of  the  options  associated  with  Com- 
mand 1,  the  date  which  is  a  part  of  the  REPORT  command  is  stored.   Any 
computation  which  is  requested  for  a  date  later  than  the  date  accompany- 
ing the  most  recent  REPORT  command  is  considered  to  be  a  projected  value, 
Commands  3  and  4  make  no  distinction  between  projected  and  actual  com- 
putations; the  PLOT  command,  however,  prints  actual  values  with  a  "*" 
and  projected  values  with  a  "-".   A  final  item  of  interest  concerning 
the  PLOT  command  is  that  it  has  been  written  with  a  linear  fill-in  fea- 
ture.  The  effect  of  this  feature  is  to  fill  in  the  space  between  suc- 
cessive ordinates  on  a  strictly  linear  basis.   The  linear  fill-in  does 
not  distort  the  display  in  any  fashion  but  serves  to  make  trends  indi- 
cated by  the  graph  easier  to  spot. 

This  chapter  has  provided  some  background  on  the  structure  of  com- 
mands in  PROJECT  and  has  discussed  the  commands  currently  available  for 
use  with  PROJECT'S  progress  control  capability.   The  next  section,  Chap- 
ter 5,  presents  a  sample  problem  which  illustrates  how  the  progress  con- 
trol capability  may  be  used  in  practice. 
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CHAPTER  FIVE 


A  dapple  Problem;   The  Southwest  Plant 

5.1  The  Project 

5.2  Transportation 

5.3  Major  Items  of  Construction 
5. A  The  Network 

5.5  Monitoring  SW  PLANT  Progress 

5.6  Summary 
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A  Sample  Problem:   The  Southwest  Plant 

All  comments  made  thus  far  on  PROJECT'S  progress  control  feature 
have  been  of  either  a  developmental  or  theoretical  character.   The  pur- 
pose of  this  chapter  is  to  demonstrate  how  the  progress  control  feature 
can  be  used  on  an  actual  project. 

5.1  The  Project 

The  task  is  to  build  a  sewage  disposal  plant  on  a  small  island  in 
Massachusetts  Bay.   Sewage  will  be  piped  from  Boston  to  the  disposal 
plant  through  an  underwater  pipeline.   On  the  island,  the  sewage  will 
pass  through  a  mechanical  pulverizer  where  the  solids  will  be  reduced 
to  small  particles;  then  the  waste  will  be  treated  chemically  prior  to 
its  being  released  into  the  sea. 

5 . 2  Tr a  n  s  p  ortation 

The  contractor  must  provide  transportation  for  all  of  his  men,  ma- 
terials and  equipment  to  the  island.   The  City  of  Boston  has  provided 
docking  facilities  on  the  mainland  for  the  contractor's  use. 
-* •  ^  Ma j or  Items  of  Construction 

The  SW  PLAIIT  project  has  the  following  major  components: 

1.  An  underwater  pipeline  must  be  laid  from  the  island  station 
to  the  Boston  shore. 

2.  Chemical  treatment  and  pulverizing  equipment  must  be  ordered 
and  installed. 

3.  A  steel  frame  superstructure,  in  which  the  pulverizer  and 
chemical  treatment  units  will  be  mounted,  must  be  erected. 

A.  A  permanent  boat  landing  and  breakwater  must  be  built  as  a 
part  of  the  project. 

5.  An  electric  generator  must  be  ordered  and  installed  on  the 
island. 
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6.   A  small  station  house  must  be  built  to  house  the  resident  op- 
erating personnel,  the  system  controls  and  the  generator. 

5 . 4  The  Network 

The  SW  PLANT  project  will  be  described  by  an  activity~on-node 
network  and  will  consist  of  the  activities  and  events  listed  in  figure 
5.1*   Note  that  in  addition  to  activity  descriptions  and  durations,  ex- 
timated  activity  costs  are  also  provided  for  each  activity.   Figure  5.2 
shows  the  SW  PLANT  network;  note  the  special  arrow  relationships.   The 
project  schedule  is  given  in  figure  5.3. 
5«5  Monitoring  SW  PLANT  PROGRESS 

The  project  manager  has  determined  that  the  SW  PLANT  project  could 
be  completed  in  32  work  days  instead  of  the  alloted  38  if  a  maximum  ef- 
fort were  made.   Thus,  the  time  recoverable  for  this  project  is  six 
days;  this  information  is  stored  using  the  command 

ASSIGN  'SW  PLANT'  TIME  RECOVERABLE  6  DAYS 
as  indicated  in  figure  5.4. 

Owing  to  a  special  concern  with  activities  related  to  piping  and 
those  activities  concerned  with  the  procurement  and  installation  of  the 
generator  and  chemical  treatment  equipment,  the  project  manager  has,  at 
the  outset,  defined  two  phases  as  indicated  in  figure  5.4. 

Progress  in  first  reported  on  activities  in  the  sample  network  on 
11  January  1967.   Since  work  started  on  2  January,  seven  working  days 
have  elapsed.   The  data  following  the  REPORT  command  in  figure  5.4  il- 
lustrates three  ways  in  which  progress  can  validly  be  reported.  The 
data  for  activity  210  shows  the  "no  modifier"  option;  activity's  310 
data  illustrates  how  dates  relative  to  the  project  start  can  be  used  in 
the  command;  finally,  the  data  for  activity  410  illustrates  that  when 
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STORE   'SW  PLANT'   NETWORK 

EVENTS 
NODE  NO.  INSCRIPTION 

100  "START  PROJECT' 

200  'SPECIAL  ITEMS  PROCURED' 

300  'TRANSPORTATION  ARRANGED' 

400  'ISLAND  LANDING  COMPLETEO* 

500  'CONSTRUCTION  COMPLETED' 

600  'TESTING  BEGINS' 

700  'UNDERWATER  PIPELINE  LAID' 

1000  'PLANT  COMPLETED' 

ACT  I  VITIFS 

NODE  NO.  DESCRIPTION 

110  'GET  PIPE-LAYING  EQUIP.  £  LAY  PIPE' 

210  'TRANSPORT  GENERATOR' 

220  'TRANSPORT  CHFM.  TRFATMENT  EQUIPMENT' 

250  'INSTALL  CHEM.  TREATMENT  EQUIP.' 

310  'CLEAR  LANDING  £  CONST.  WHARF' 

330  'PUT  IN  CRANES' 

340  'PUT  IN  BREAKWATER' 

410  'CLEAR  BLDG.  SITE  l    PLACE  FNDS.' 

420  'TRANSPORT  CONSTRUCTION  EQUIPMENT' 

450  'PUT  UP  STATION  HOUSE' 

460  'ERECT  SUPERSTRUCTURE' 

470  'ROUGH  IN  PIPING' 

510  'MAKE  FINAL  PIPING  CONNECTIONS' 

520  'INSTALL  VA1VTS  AND  GAUGES' 

530  "MAKE  FINAL  ELFCTPICAL  CONN.' 

540  'PUT  IN  HIRING' 

610  'TEST  ELFCTPICAL  SYSTEM' 

6?0  'TEST  PULVERIZER* 

630  'TEST  CHEMICAL  EQUIPMENT' 

710  'TIE  PIPELINE  TO  ISLAND  STATION' 


ACTIVITY 

DURATION 

27 

1 

2 

2 

2 

I 
20 
10 


20 


ESTIMATED 
DOLLAR  COST 
COST    22000 


COST 

1000 

COST 

1000 

COST 

4000 

COST 

16000 

COST 

2000 

COST 

80000 

COST 

25000 

COST 

5000 

COST 

2000 

COST 

10000 

COST 

5000 

COST 

2000 

COST 

1000 

COST 

1000 

COST 

10000 

COST 

1000 

COST 

1000 

COST 

2000 

COST 

1000 

Figure  5.1 
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PROJECT     "S.W.  PLANT' 


o; 


6/0 
r:sr  elect. 

600     j/ 

620 

VERIZtR 

i  .;.:PLETto 

TESTING      l\ 
H£6/ns      q  \ 

650 

T£i>T  CHEU. 
i  ■  " 

Figure  5-2 
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ASSIGN  'SW  PLANT'  START  1  JANUARY  1967 

PROJECT  SW  PLANT  HAS  BEEN. ASSIGNED  TO  START   ON   DAY     1  JAN  1967 
PRINT  'SW  PLANT'  SCHEDULE 

*  SCHEDULE  FOR  PROJECT  'SW  PLANT'  * 

PROJECT  DURATION  IS     38  WORK  DAYS,   WORK  WEEK  IS  5  DAYS 

WORK  IS  SCHEDULED  TO  START  ON   2  JAN  1967  AND  TO  BE  COMPLETED  ON  22  FEB  1967. 


THE  PROJECT  • SW  PLANT'  NETWORK  HAS 
20  ACTIVITIES 
8  MILESTONE  EVENTS 

NO  HOLIDAYS  FOUND  IN  SW  PLANT  HOLIDAY  TABLE. 


EVENT  SCHEDULE 


EVENT   DESCRIPTION 


100   START  PROJECT 


200   SPECIAL  ITEMS  PROCURED 


300   TRANSPORTATION  ARPANGFD 


400   ISLAND  LANDING  COMPLETED 


500   CONSTRUCTION  COMPLETED 


600   TESTING  '1EGINS 


700   UNDERWATER  PIPELINE  LAID 


1000   PLANT  COMPLETED 


EARLY  TIME 

LATE  TIME 

2  JAN 
1 

1967 

2 

JAN 
1 

1967 

2  JAN 

1 

1967 

14 

FEB 
32 

1967 

2  JAN 
I 

1967 

2 

JAN 
1 

1967 

5  JAN 
4 

1967 

5 

JAN 
4 

1967 

16  FEB 
34 

1967 

20 

FEB 
36 

1967 

21  FEB 
37 

1967 

21 

FEB 
37 

1967 

8  FEB 
28 

1967 

20 

FEB 
36 

1967 

22  FEB 
38 

1967 

22 

FEB 
38 

1967 

END  OF  EVENT  SCHEDULE 


Figure  5.3 
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Figure   5.3    (Continued) 
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Figure   5.3    (Continued) 
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modifiers  are  used,  the  data  may  come  in  any  order. 

In  an  effort  to  get  a  picture  of  project  status  in  the  near  fu- 
ture—day 10 — the  project  manager  has  used  another  command  found  in 
figure  5. A: 

PRINT  INDEX  FOR  STATUS  AS  OF  DAY  10 
The  requested  (projected)  value  of  the  status  index  is  0.77;  the  work 
progress  component  is  0.779  and  hence,  it  is  also  printed.   Notice  that 
because  it  was  available  from  a  previous  command,  the  project  name  could 
be  omitted  from  the  foregoing  command.. 

Also  found  in  figure  5.4  are  the  commands 

PRINT  INDEX  FOR  TIME  AS  OF  DAY  10  and 
PRINT  INDEX  FOR  COST  AS  OF  DAY  10. 
These  commands  serve  to  illustrate  that  either  component  of  the  status 
Index  may  be  requested. 

Figure  5.5  is  a  glimpse  into  the  future  of  the  SW  PLANT  project. 
By  using  the  PLOT  command  and  specifying  the  range  of  interest  to  be 
the  first  thirty  days  of  the  project,  the  project  manager  can  see  at  a 
glance  that  if  present  trends  continue,  he  will  find  himself  in  an  un- 
tenable position. 

Shifting  his  attention  from  the  project  as  a  whole,  the  project 
manager  next  requests  the  status  index  as  of  day  10  for  the  sub-network 
called  PHASE  1;  this  command  is  illustrated  in  figure  5.6  as  is  the  re- 
quest to 

PLOT  INDEX  FOR  STATUS  BETWEEN  DAY  1  AND  DAY  30  PHASE  1 
An  interesting  point  can  be  noted  here.   Apparently  workday  1  does  not 
occur  during  the  execution  of  the  activities  in  the  sub-network  PHASE  1. 
This  is  indeed  the  case  as  the  project  schedule  shows;  thus,  since  the 
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ASSIGN  'SW  PLANT'  TIME  RECOVERABLE  6  DAYS. 

THE  ESTIMATE  OF  TIME  RECOVERABLE  FOR  PROJECT  SW  PLANT  IS      6  DAYS. 

ASSIGN  'SW  PLANT'  PHASE  1  210  220  250  LAST 

PHASE         I   OF  PROJECT  'SW  PLANT'  HAS  BEEN  ASSIGNED  THE  FOLLOWING  ACTIVITIES, 

210  TRANSPORT  GENERATOR 

220  TRANSPORT  CHEM.  TREATMENT  EQUIPMENT 

250  INSTALL  CHEM.  TREATMENT  EQUIP. 


ASSIGN  'SW  PLANT'  PHASE  2  470  510  520  110  710  LAST 

PHASE        2   OF  PROJECT  'SW  PLANT'  HAS  BEEN  ASSIGNED  THE  FOLLOWING  ACTIVITIES, 

470  ROUGH  IN  PIPING 

510  MAKE  FINAL  PIPING  CONNECTIONS 

520  INSTALL  VALVES  AND  GAUGES 

110  GET  PIPE-LAYING  EQUIP.  6  LAY  PIPF 

710  TIE  "IPELINE  TO  ISLAND  STATION 


REPORT  PROGRESS  AS  CIF  11  JAW  1967 

ACT  210  6  JW  1467  4  JAN  1967  2000. 
NO  MODIFIERS.   ASSUMED  INPUT  ORDER  TO  BE  START,  FINISH,  COST  (OPTIONAL). 

310  STAP.T  I   FINISH  ?   COST  17000. 

ACT  410  FINISH  20  JAN  1967  START  S  JAN  1967  COST  27000. 

LAST 

PRINT  INDEX  FOR  STATUS  AS  OF  1AY  10 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.77  FOR  DAY    10  **♦* 

****  NUTE  —  VALUE  OF  WORK  PROGRESS  COMPONENT  IS   0.779  **** 

PRINT  INDEX  FUR  T I «E  AS  PF  DAY  10 

****  THE  VALUE  OF  THE  WORK  PROGRESS  COMPONENT  IS   3.78  FOR  DAY    10  ***« 

PPl'.'T  IMOTX  Frm  COST  AS  OF  I'AY  10 

**<•*  THE  VALUE  OF  THE  COST  COMPONENT  IS   0.99  FOR  DAY     10  «*** 


Figure  5.4 
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PLOT  INDEX  FOR  STATUS  BETWEEN  DAY  1  AND  DAY  30 
INDEX  DATA  Will  BE  PRESENTED  IN   5  DAY  INCREMENTS. 


>**•****»•»****•*•*• 


D.  )  *. 

1 


»«•*  INDEX  PLOT  FOR  PR3JECT  SW  PLANT  •»•» 


IN  THE  FOLLOWING  GRAPH 

ASTERISKS  (•)  INDICATE  ACTUAL  VALUES 

DASHES  I-)  INDICATE  PROJECTED  VALUES 


Figure  5.5 
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PRINT  IN3EX  FOR  STATUS  AS  OF  OAY  10  PHASE  1 

•♦»•  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.8*  FOR  DAY    10  •«•• 
••••  NOTE  --  VALUE  OF  CUST  COMPONENT  IS   0.833  ••»« 
PLOT  INOEX  FOR  STATUS  BETWEEN  DAY  I  AND  DAY  30  PHASE  1 
INDEX  DATA  WILL  RE  PRESENTED  IN   5  DAY  INCREMENTS. 
WORKDAY     1  D05S  VTT  OCf  JR  DURING  THE  EXECUTION  OF  THIS  SU8SET  OF  ACTIVITIES.   IT  IS  NOT  VALID. 

••««  INDEX  PLOT  FOR  PR3JECT  SW  PLANT  *•«• 

IN  THE  FOLLOWING  GRAPH 

ASTERISKS  (•!  INDICATE  ACTUAL  VALUES 

OASHES  (-)  INDICATE  PROJECTED  VALUES 


Figure  5.6 
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sub-network  has  not  started,  its  status   index  value  is  unity  by  defini- 
tion.  This  is  indicated  on  the  plot  in  figure  5.6. 

On  the  twentieth  day  of  the  project  progress  is  reported  as  shown 
in  figure  5.7.   One  new  command  is  introduced  here;  it  is 

PRINT  INDEX  FOR  STATUS  BETWEEN  DAY  1  AND  DAY  20. 
Based  on  incremental  steps  of  five  working  days,  the  index  is  computed 
and  printed  in  the  same  fashion  as  when  it  is  requested  for  a  single 
date.   Notice  that  the  values  reported  for  the  status  index  in  figure 
5.7  start  at  day  1  with  a  lower  value  than  was  recorded  on  the  basis  of 
the  progress  reported  on  11  January  1967. (c.f.  figure  5.4).   The  reason 
for  this  is  that  the  values  recorded  in  figure  5.7  are  based  on  differ- 
ent progress  data  than  is  the  index  value  found  in  figure  5.4. 

Figure  5.8  shows  what  progress  was  reported  for  the  project  on  day 
35.  Again,  the  status  index  is  printed  for  an  interval  between  two 
specified  dates.   The  projected  and  actual  index  values  for  day  20  which 
were  displayed  in  figure  5.7  showed  the  SW  PLANT  project  to  be  in  an  un- 
favorable situation  with  respect  to  progress.   This  information  was  used 
to  good  advantage  by  the  project  manager;  evidence  of  this  is  given  by 
the  near-unity  status  index  values— see  figure  5.8~-which  indicate  that 
the  project  is  behaving  as  planned.   The  plot  of  index  values  over  the 
same  period  (found  in  figure  5.9)  makes  the  same  indication. 

Again,  the  project  manager's  attention  shifts  to  the  important  sub- 
networks.  The  plot  of  the  status  index  for  PHASE  2,  figure  5.10,  shows 
this  subset  of  activities  to  be  performing  quite  well.   Figure  5.11  is 
a  plot  of  the  status  index  for  PHASE  1;  PHASE  1  seems  to  have  a  status 
index  which  is  constant  at  a  value  of  0.84,   This  is  a  relatively  low 
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REPORT  PROGRESS  AS  OF  DAY  20 

ACT  340  24  JANUARY  1967  21  FEB  1967  83000. 
NO  MODIFIERS.   ASSUMEO  INPUT  ORDER  TO  BE  START,  FINISH,  COST  (OPTIONAL). 

ACT  460   FIN  33   STA  14   COS  12000. 

ACT  470  COST  3500.  STA  15   FIN  18 

LAST 

PRINT  INDEX  FOR  STATUS  AS  OF  DAY  20 

***♦  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.65  FOR  DAY    20  **** 

****  NOTE  —  VALUE  OF  WORK  PROGRESS  COMPONENT  IS   0.653  **** 

PRINT  INDEX  FOR  STATUS  BETWEEN  DAY  1  AND  DAY  20 

INDEX  DATA  WILL  BE  PRESENTED  IN   5  DAY  INCREMENTS. 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.84  FOR  DAY      1  **** 

****  NOTE  --  VALUE  OF  WORK  PROGRESS  COMPONENT  IS   0.834  **** 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.80  FOR  DAY     6  **** 

♦***  NOTE  —  VALUE  OF  WORK  PROGRESS  COMPONENT  IS   0.807  **** 

«***  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.76  FOR  DAY    11  **** 

**#*  NOTE  —  VALUE  OF  WORK  PROGRESS  COMPONENT  IS   0.770  **** 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.71  FOR  DAY     16  **** 

****  NOTE  --  VALUE  OF  WO'K  PROGRESS  COMPONENT  IS   0.717  **** 

PRINT  INDEX  FOR  STATUS  AS  OF  OAY  20  PHASE  1 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.84  FOR  DAY    20  **** 

****  NOTE  --  VALUE  OF  COST  COMPONENT  IS   0.833  **** 

PRINT  INDEX  FOR  STATUS  AS  OF  OAY  20  PHASE  2 

****  THE  VALUE  3F  THE  STATUS  INDEX  IS   1.06  FOR  DAY    20  **** 


Figure  5.7 
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RfcPORT  PROGRESS  AS  OF  DAY  35 

220  1*.  FEBRUARY  1967  1*.  FEBRUARY  1967 
NO  MODIFIERS.   ASSUMED  INPUT  ORDER  TO  BE  START,  FINISH,  COST  (OPTIONAL). 

250  FINISH  16  FEB  1967  START  16  FEB  1967 

LAST 

PRINT  INDEX  FOR  STATUS  AS  OF  DAY  35 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.97  FOR  OAY 

PRINT  INDEX  FOR  STATUS  BETWEEN  1  AND  35 

INDEX  DATA  WILL  BE  PRESENTED  IN   5  DAY  INCREMENTS. 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   I. 01  FOR  DAY 

**•*  THE  VALUE  OF  THE  STATUS  INDEX  IS   1.00  FOR  DAY 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.99  FOR  DAY 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.99  FOR  DAY 

***»  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.99  FOR  DAY 

****  THE  VALUE  OF  THE  STATUS  INDEX  IS   0.98  FOR  DAY 

****  THF  VALUE  OF  THE  STATUS  INDEX  IS   0.98  FOR  OAY 


35  *»** 
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Figure  5.8 
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PLOT  INDEX  FOR  STATUS  RFTWFFN  1  AND  35 

INDEX  DATA  WILL  BE  PRESENTED  IN   5  DAY  INCREMENTS. 


••«*  INDEX  PLOT  FOR  PROJECT  SW  PLANT  ♦  «♦* 


IN  THE  FOLLOWING  GRAPH 

ASTERISKS  (♦)  INDICATE  ACTUAL  VALUES 

DASHES  I-)  INOICATE  PROJECTED  VALUES 


l<i;gi*M!Ut:tt0ttOtMMMIMIl«l9MM:tM(IFttl)ttttMNIIIIMM«(>MMtttltlt 


>  .    I      ♦. 

1 


37       OATS 


Figure   5.9 
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PRINT  INDEX  FOR  STATUS  »S  OF  DAY  35  PHASE  2 

••*•  THE  VALUE  OF  THE  STATUS  INDEX  IS   1.06  FOR  DAY    35  **»• 

PLOT  INOEX'  FOR  STATUS  BETWEEN  I  AND  35  PHASE  2  •- 

INOEX  OATA  WILL  BE  PRESENTEO  IN   5  DAY  INCREMENTS. 

•»••  INDEX  PLOT  FOR  PROJECT  SW  PLANT  *••» 

IN  THE  FOLLOWING  GRAPH 

ASTERtSKS  (•)  INDICATE  ACTUAL  VALUES 

DASHES  I-l  INDICATE  PR3JECTED  VALUES 


..••-•.<..........!..«.- 


»•••**«*«•*•*•*••*••*••*•••*•«•»•••••#•*••«••••••••*•«•••••«•*• 


Figure  5.10 
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PLOT  INDEX  FOR  STATUS  BFTWEEN  1  AND  35  PHASE  1 

INDFX  HATA  MILL  BF  PRESENTED  IN   5  DAY  INCREMENTS. 

WORKDAY     I  DOES  NOT  OCCUR  DURING  THE  EXECUTION  OF  THIS  SUBSET  OF  ACTIVITIES.   IT  IS  NOT  VALID. 

••**  INOEX  PLOT  FOR  PR3JECT  Sw  PLANT  »•«• 

IN  THE  FOLLOWING  GRAPH 

ASTERISKS  (M  INOICATE  ACTUAL  VALUES 

OASHES  (-)  INOICATE  PR3JECTED  VALUES 


••*•**««** 


i  •****«*«•***•**••»*»•*•••*»♦••••*•*••««»•••••****•• t« 


P.  I'll   I  I  )'  X 


7  13  19  ?5  3 

STATUS  AS  OF  OAY  35  SELECT  ACTIVITIES  WITH  NODES  GT  510 

♦•»*  THE  VALUE  OF  THE  STATUS  INDEX  IS   1.11  FOR  DAY    35  •••« 


Figure   5.11 
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value  considering  that  only  three  days  remain  in  the  project's  lifetime. 
It  would  certainly  behoove  the  project  manager  to  investigate  this  the 
activities  comprising  PHASE  1  very  carefully. 

The  final  area  of  interest  to  the  project  manager  consists  of  all 
network  activities  with  node  numbers  greater  than  or  equal  to  510;  this 
includes  activities  510,  520,  530,  540,  610,  620,  630  and  710.   The 
value  of  1.01  for  the  status  index  (printed  below  the  graph  in  figure 
5.11)  indicates  that  this  user-defined  subset  of  activities  is  on  sched- 
ule. 
5.6  j>ummarv_ 

In  this  chapter,  every  working  command  of  PROJECT'S  progress  con- 
trol feature  has  been  demonstrated  on  an  actual  project.   It  has  been 
shown  how  the  status  index  and  its  components  may  be  useful  as  indica- 
tors of  problem  areas  within  the  project. 
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CHAPTER  SIX 


Extensions  and  Comments 

6.1  Extensions 

6.2  Some  Concluding  Remarks 
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Extensions  and  Comments 

The  aim  of  this  chapter  is  to  draw  together  the  several  facets  of 
PROJECT'S  progress  control  feature.   This  will  be  done  by  first  discus- 
sing some  extensions  of  the  capability  and  then  by  making  some  observa- 
tions of  a  general  nature. 
6.1  Extensions 

Calculation  of  the  work  progress  measure  for  any  sub-network  re- 
quires that  the  forward  flowing  procedure  be  twice  applied:   once  to 
determine  the  planned  sub-network  duration  and  the  second  time  to  cal- 
culate the  latest  revised  estimate  of  the  sub-network  duration.   Each 
time  the  forward  flowing  takes  place,  a  check  is  made  to  ascertain  if 
any  special  arrow  relationships  (that  is,  any  arrow  relationships  which 
are  other  than  finish-start)  are  present  in  the  network.   Thus,  this 
check  is  made  twice  whenever  the  status  index  (or  the  work  progress 
measure)  is  requested— a  time  consuming  procedure.   A  worthwhile  exten- 
sion would  be  to  improve  the  efficiency  of  the  progress  monitoring  ca- 
pability by  eliminating  the  redundant  check. 

In  Chapter  Two,  a  situation  was  described  when  the  existing  pro- 
ject schedule  ceases  to  be  viable.   This  can  occur  when  the  project  will 
take  longer  to  complete  than  was  originally  planned.   Under  such  circum- 
stances, it  would  be  of  great  value  to  have  the  reported  activity  pro- 
gress data  replace  the  original  activity  data.   The  reported  progress 
information  would  then  serve  as  the  basis  for  calculating  a  revised  pro- 
ject schedule.   The  implementation  of  this  self-modifying  capability 
would  constitute  a  second  valuable  extension  to  PROJECT'S  progress  con- 
trol feature. 
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6-2   Some  ConcludJjTg  Remarks 

It  should  be  clear  from  the  discussion  in  previous  chapters  that 
the  computation  of  the  status  index  is  highly  dependent  on  the  activity 
progress  data  reported  from  the  project  site.   Because  of  this  dependence, 
the  significance  attachable  to  the  index  is  bounded  from  above  by  how  com- 
plete, up-to-date  and  accurate  the  reported  activity  progress  data  is. 

The  great  amount  of  highly  detailed  cost  and  work  progress  data 
available  to  the  project  manager  is  clear  evidence  that  much  thought  and 
effort  has  been  expended  in  the  area  of  project  progress  control.   Per- 
haps because  such  a  volume  of  information  was  available  for  the  project 
manager,  not  many  people  seem  to  have  considered  the  wisdom  and,  in 
fact,  necessity  of  compacting  the  reams  of  progress  data  into  a  more  ten- 
able form — -a  form  useful  for  pointing  out  those  areas  of  the  project  re- 
quiring a  deeper  investigation.  Among  those  who  did  recognize  the  value 
of  this  course  of  action  was  J.  S.  Baumgartner  whose  text  PROJECT  MANAGE- 
MENT ^  provided  the  motivation  for  this  work. 

The  paramount  consideration  in  the  development  and  implementation 
of  the  progress  monitor  has  been  to  keep  it  simple — so  the  project  man- 
ager can  grasp  it  at  a  glance— yet  meaningful.   When,  in  the  development 
of  a  feature  like  PROJECT'S  progress  control  capability,  the  emphasis  is 
placed  on  simplicity  and  ease  of  understanding,  sophistication  must  be 
sacrificed  to  a  certain  extent.   The  final  point  to  be  made,  then,  is 


Qqntrol  and  Management  of  Capital  Projects,  J.  W.  Hackney,  John  Wiley 
&  Sons,  Inc.,  New °York7  T§65,  pg.  3. 
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that  the  status  index  should  not  be  thought  of  as  a  panacea  vhich  will 
prevent  a  project  from  going  awry.  Rather,  it  is  but  an  indicator  and 
should  never  be  a  substitute  for  good  judgment. 
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APPENDIX  A 


Appendix  A  consists  of  the  programs  which  were  written  to  implement 
PROJECT'S  progress  control  capability.   The  programs  can  be  classified 
in  two  groups:   (1)   ICETRAN  programs  for  computation  and  (2)   programs 
written  in  the  Command  Definition  Language,  which  serve  to  interpret  the 
commands  which  the  user  submits. 

The  ICETRAN  programs  are  grouped  according  to  their  respective  load 
modules  as  follow: 


Load  Module  PROGFL 


Load  Module  PROGST 


Load  Module  PROGTR 


PROGFL 
PROGOL 
PROG IX 
PROGMD 
PRSAVE 
PROGET 


PROGST 
PRPORK 
PRKDAT* 
PRLOGX* 


PROGTR 
PRGRAF 
PRS85 
PROGDJ 


The  listing  of  this  program  is  not  included  here  since  it  is  common  to 
the  entire  PROJECT  system  and  was  not  written  specifically  for  the  prog- 
ress control  feature. 


ICFTRAN    LISTING 
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s. 

1 

SUBROUTINE 

s. 

2 

COMMON  MODI 

s. 

3 

COMMON  NTH' 

s. 

<» 

COMMON  NAMI 

s. 

5 

COMMON  TABI 

s. 

6 

COMMON  NASI 

s. 

7 

COMMON  SOR 

s. 

8 

DYNAMIC  ARI 
USORT.KHOL 

s. 

9 

DOUBLE  PREl 

s. 

10 

DOUBLE  PREl 

s. 

11 

FQUIVALENC 

s. 

12 

IF1K31100, 

s. 

13 

C 

ENTER  HERE 

s. 

14 

100 

IFIK5-2) It 

s. 

15 

3 

WRITE(6,4) 

s. 

16 

4 

FORMAT!//, 
1LAST  WORD 

s. 

17 

ERROR  RETUi 

s. 

18 

c 

TIME  RECOV 

s. 

19 

2 

ITIMRC=DNU 

s. 

20 

10 

WRITEI6.5) 

s. 

21 

5 

FORMAT!//, 
IIS  •  ,15,' 

s. 

22 

RETURN 

s. 

23 

c 

TIME  RECOV 

s. 

24 

1 

ITIMRC=K3 

s. 

2S 

GO  TO  10 

s. 

26 

c 

ENTER  HERE 

s. 

27 

c 

RECDVERABL 

s. 

28 

90 

ITIMRC=( (• 

s. 

29 

RETURN 

s. 

30 

FND 

PROGTR 
iE,NUMACT,NOAC 
I1L, JOBDUR, A,B 
E.NAME1.NAME2 
LE,HOLO, IALPH 
ROW(P), INC03E 
TIP) ,  JS0RT1P) 
RAY  NARROW, I 
D.MDUM, MARROW 
CISION  NAME.N 
CISION  IALPHA 
E  (INTXXX(IT) 
90,100 

IF  USER  HAS 
2,3 

NAME 
IX, 'RESUBMIT 
OF  COMMAND  MU 
RN 

ERABLE  INPUT 
'M*K3 

NAME,  ITIMRC 
IX, 'THE  ESTIM 
DAYS. •  ,/) 


T.NUMAR.ICODE, IFL OW , 3  ATE M , DATED , TATF Y , DNUM 

,C,D,E,F,G,H,K1,X2,K3,K4,K5,K5,LINF(?0) 

,NAME3,NAME4,NAMF5,A3(12),MA«E,DBXXX(50) 

A(16),M0NTH(12),RLXXX(20),INTXXX(?0) 

(P),INGRID(P),<TIME(P>,IOTIME(P),IDNET(P) 

,<HOLD(P),MDUM(P) ,MARROW(P),ICAL(P), IHOL(P) 

N:0DE,INGRID,KTIME,I3TIME,IDNFT,S0RT(D1, 

, ICAL, IHOL 

AME1,NAME2,NAME3,NAME4, NAMES, BLANK, MA ME 

,FMONTH,DBXXX 

,  ITIMRC) 

SPECIFIED  TIME  RECOVERABLE  DATA. 


TIME 
ST  BF 


RECOVERABLE  DATA  FOR  PROJECT  ',Afl,'. 
DAYS  ,   WEEKS   OR  LEFT  RLANK.') 


AS  WEEKS 


CONVERT  TO  DAYS. 


ATE  OF  TIME  RbCOVE^ABLE  FOR  PROJECT  ',A8,' 


ERABLE  INPUT  AS  DAYS  —  NO  CONVERSION  NEEDED. 


IF  USER  HASN'T  SPECIFIED  TIME  RE:DVERA3LE  DATA 
F  TO  BE  FIFTEEN  PERCENT  OF  THE  JOB  DURATION. 
15)*J0BDUR*.5) 


4SSJME  TIME 


ICETPAN  LISTING 
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s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 

s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 

5. 

s. 
s. 
s. 

s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 


1 
2 

3 

* 

5 
6 
7 

8 

q 

10 

ll 

12 
13 
14 
15 
16 
17 
1" 
10 
20 

?1 

?2 
'3 

24 
25 
?6 
?7 
23 
?<? 
30 
31 
32 
33 
3<, 
35 
36 
37 
3* 
39 
4  0 
^1 
4? 
43 
44 
45 
46 
47 
43 


13 

C 

c 
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SURROUT 
PRGRAF 
INPUT  D 
CT.MMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
DYNAMIC 
1JS0RT.K 
OIMENSI 
OOUP.LE 
0DU3LF 
I  1=L1NE 
I2=LINE 
I3=LINE 
I4=LINE 
I5=LINE 
K5=LINE 
R 1 = 12-t 
R2=13-T 
RRR=R1/ 
12=100* 
ROUT INE 
00  3  1  = 
IFINARR 
1FINARR 
OUTSIOE 
I0AY=I1 
SIZF=NA 
TFINARR 
NARROW! 
GO  TO  3 
NARROW! 
CONTINU 


INE  P 
PRINT 
ATA  I 
MODE, 
NOHDL 
NAME, 
TABLE 
NARRO 
SORT! 

ARRA 
HOLO, 
ON  PT 
PRECI 
PRECI 
(1) 
(2) 
(3) 
(4) 
(5) 
(6) 
1 
I 

R2 
RRR 

TO 
1,<5 

own » 

0W(  I) 
THE 

-1*1 
RROWl 

owm 
n=o 


RGRAF 
S  OUT 
S  IN 
NUMAC 
,  JORD 
NAMF1 
,HOLD 
W(P)  , 
P)  ,JS 
Y  NA 
MDUM, 
(10?) 
SION 
51  ON 


COST 
NARROW 
T.NOAC 
UR, A,B 
,NAME2 
,  IAL.PH 
INCODE 
ORT  t») 
RRDW, I 
MARROW 
, JOLD! 
NAME.N 
I  ALPHA 


t    RESOURCE  CURVES 

,  K5,  RLXXX,  INTXXX,  C  AB 

T.NUMAR, ICOO E,IFL0W,3ATEM, DATED, DATEY, 3 NUM 

,C,D,E,F,G,H,<l,<2,<3,K4,K5,K6,LlNC(?0> 

,NAME3,NAME4,NAME5,A3(12),MAME,DRXXX(50) 

At  16) , MONTH! 12),RLXXX(20),INTXXX<20) 

IP) , INGRIDtP) ,KTIME(P),IDTIMF!P),IDNFT(P) 

,<H0LD(P),MDUM(P),MARR0W(P),ICAL!P),IH3L!P) 

NCOOE,  INGRID,<TIME, IDT  I  ME, IONFT.SORT! D) , 

, ICAL , IHOL 

11  ) 

AME1,NAME2,NAME3,NAME4,NAME5,BLANK,MAME 

,FMONTH,DRXXX 


REJECT  'Y'  VALUES  OUTSIDF  THE  RANGE  0.  TO  2.0 
2 
T  ERROR  MESSAGE 


-20000)1, i,; 
)2,3,3 

RANGE,  PRIN1 


n/ioooo. 

)4,5,5 


I)=20000 
F 


SCALE  ALL  'Y'  VALUES 

Y=.0025 

DO  13  I 

NARROW! 

J5  =  <5 


=  i,K5 

I )=Y*NARROW( I )*.5 


ROUTINE 
IF ( 100- 
70  DEFINE 
JI=0 
DO  71  I 
MARPOW! 


TO  MAKE  A  LINEAR  FILL-IN  IF  FEWER  THAN  100  PniNTS  INPUT 
K51 14,70,70 
MARROW, 101 .HALF ,LOW 

=1, 100 
I  )=n 
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s. 

49 

00  75  1=1, K5 

s. 

50 

ll  =  ! I-l)*100/(K5-l)+1.5 

s. 

51 

MARROW!  I  I )=NARROW(  I  ) 

s. 

52 

IF ( J  I  175,75,72 

s. 

51 

C 

SCALE  VALUFS  IN  MARROW  BETWEEN  THIS  AND  PREVIOUS  POINT 

s. 

54 

72 

IX=JI+l 

s. 

55 

jx=i  r-i 

s. 

56 

IF( JX-IX175,75,73 

s. 

57 

73 

1 EN=JX-IX+1 

s. 

58 

00  74  J=1,LEN 

s. 

59 

K=IX+J-1 

s. 

60 

74 

MARROW (K)= (MARROW! II )-MARROW(JI ) )*J/( II- JI )*MARROW(JI )♦. 5 

s. 

61 

75 

J  I  =  1  I 

s. 

62 

OESTROY  NARROW 

s. 

61 

DEFINE  NARROW, 101 .HALF, LOW 

s. 

64 

DO  76  1=1,100 

s. 

65 

76 

NARROW!  I  )  =  MAP.ROW(  I  ) 

s. 

66 

DESTROY  MARROW 

s. 

67 

K5=100 

s. 

68 

C 

s. 

69 

c 

LOOP  TO  PRINT  OUT  SUCCESSIVE  LINES 

s. 

70 

14 

00  50  <K=1,50 

s. 

71 

00  17  1=1,100 

s. 

72 

17 

PT(  I  )  =  •  • 

s. 

73 

00  30  1  =  1,  K5 

s. 

74 

I!  =  <  I-l)*100/(K5-l)+1.5 

s. 

75 

IFI100-II ) 18,19, 19 

s. 

76 

18  11=100 

s. 

77 

19  CONTINUE 

s. 

78 

Itr!51-KK-NARR3W!I))30,20,30 

s. 

79 

20 

IF!  !  1-12)25,25,26 

s. 

80 

25 

PT ( I  I  1  =  • *  • 

s. 

81 

GO  TO  30 

s. 

"2 

26 

PT! II >  =  •-* 

s. 

81 

10 

rONTINUE 

s. 

84 

31 

Z=(51-KK) /5. 

s. 

85 

!Z  =  Z 

s. 

86 

IF (7-IZ)35,40,35 

s. 

87 

35 

WPITE(6,361  (PT!  I )  ,  1  =  1,  100) 

s. 

88 

36 

FORMAT! 10X, • . •  ,  100A1 ) 

s. 

89 

pa  TO  50 

s. 

90 

40  W=(51-KK ) /( Y*10000.) 

s. 

91 

WR I TF  < 6,41  )W,  (PT< I  )  ,1  =  1,100) 

s. 

92 

41 

FORMAT! 1 X.FT.2, •  +  • ,10  )A1  1 

s. 

93 

50 

CONT [MUE 

s. 

94 

CALL  PRS85! I  1, J ^ ,  13) 

s. 

15 

PFTURN 

s. 

06 

END 

ICETRAN  L  ISTING 
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s. 

1 

SUBROUTINE  PRS85I I  1, J5, 13) 

s. 

2 

C 

THIS  PRINTS  OUT  STATUS-GRAPH  INDICES 

s. 

3 

DIMENSION  PT(  103I,.J0L0(  10) 

s. 

4 

DO  1  1=1,100 

s. 

5 

1 

PT( !)=«.• 

5. 

6 

nn  6  1=1, J5 

S. 

7 

II=(  I-11M00/IJ5-1IM.5 

S. 

8 

IF( 100-11 160,61 ,61 

S. 

9 

60 

11=100 

S. 

10 

61 

IF ( 100-J5)2,3,3 

s. 

11 

2 

XJ=II/10. 

s. 

12 

GO  TO  4 

s. 

13 

3 

IF( J5-33)32,31,31 

s. 

14 

32 

IF(J5-10)33,33,34 

s. 

15 

33 

XJ  =  I 

s. 

16 

GO  TO  4 

s. 

17 

34 

XJ=I/3 

s. 

13 

GO  TO  4 

s. 

19 

31 

XJ=I/10. 

s. 

20 

4 

JX  =  XJ 

s. 

21 

IF(XJ-JX)6,5,6 

s. 

22 

5 

PT( I  I )  =  ■  +  ' 

s. 

23 

6 

CONTINUE 

s. 

24 

WRITE(6,63)(PT( J), J=l, 100) 

s. 

25 

63 

F0RMATI6X, '0.0  '.100AI) 

s. 

26 

C 

s. 

27 

C 

NOW,  FINO  WHERE  '+'  WAS  PRINTED  ON  THE  ABOVE  LINE 

s. 

28 

N  =  0 

s. 

29 

XX  =  '  +  ' 

S. 

30 

no  r  i=i ,100 

s. 

31 

IF( XX-PTI  I  )) 8,7,3 

s. 

3? 

7 

N  =  N*1 

s. 

33 

JOLD(N)=I 

s. 

34 

8 

CONTINUE 

s. 

35 

DO  9  1=1,102 

s. 

36 

9 

PT( I )=•   < 

s. 

37 

C 

COMPUTE  THE  NEAREST  INTE3FR  VALUE  FOR  THESE  POIMTS 

s. 

38 

IF(N)90,90, 101 

s. 

39 

101 

AOD=(  13-11  )/(N-l  ) 

s. 

40 

^0  30  1  =  1, N 

s. 

41 

jHOin=i i+ ( t- i )*aoo+.5 

s. 

42 

10 

J1=JH0L0/1 00 

s. 

43 

IFIJ3)  11* 12.11 

s. 

44 

11 

K=JOLO( I )-I 

s. 

45 

KK  =  l 

s. 

46 

GO  TO  ( 21  ,22,23,74,25,26,27,28,29)  ,J3 

s. 

47 

12 

J2=JHOLD/10-10*J3 

s. 

43 

K=JOLO( I ) 

s. 

49 

KK.  =  2 

69 


s. 

50 

IF(j; 

r. . 

SI 

13 

IF  (J 

s. 

52 

14 

GO  Ti 

s. 

53 

15 

J1=JI 

s. 

54 

KK  =  3 

s. 

55 

K  =  jni 

s. 

56 

IF(J 

s. 

57 

151 

IF(  J 

s. 

58 

152 

IF(  J 

s. 

59 

16 

GO  TI 

s. 

60 

20 

PT(K 

s. 

61 

GO  T 

s. 

6? 

21 

PT(K 

5. 

63 

GO  Tl 

s. 

64 

22 

PT(K 

s. 

65 

GO  T 

s. 

66 

23 

PT(K 

s. 

67 

GO  T 

s. 

69 

24 

PT(K 

s. 

69 

GO  T 

s. 

70 

25 

PT(K 

s. 

71 

GO  T 

s. 

72 

26 

PT(K 

s. 

73 

GO  T 

s. 

74 

27 

PT(K 

s. 

75 

GO  T 

s. 

76 

28 

PT(K 

s. 

77 

GO  T 

s. 

78 

29 

PT(K 

s. 

79 

GO  T 

s. 

80 

30 

CONT 

s. 

81 

WPIT 

s. 

82 

40 

FORM 

s. 

83 

RFTU 

s. 

84 

90 

WRIT 

s. 

85 

91 

FORM 

s. 

86 

RFTU 

s. 

87 

FND 

2) 14, 13,14 
3)20,15,20 
0  (21, 22, 23, 24, 25, 26, 27, 28, 29), J2 

HOLO-10*J2-100*J3 

L0( I )+l 

1)16,151, 16 

2)20,152,20 

3)20,30,20 

0  (21, 22, 23, 24, 25, 26, 27, 28, 29 ),Jl 

)  =  '0' 

0  ( 12,15,30) ,KK 

!  =  •  I  ■ 

n  (  12, 15,30) ,KK 

)  =  •?' 

0  (  12,  15,30) ,KK 

)  =  '3« 

0  (  12, 15,30) ,KK 

)  =  '4' 

0  (12,15  ,30)  ,KK 

)  =  «  5' 

0  (  12, 15,30)  ,KK 

)  =  '6' 

0  ( 12,15,30) ,KK 

)  =  >T 

0(12, 15,30) ,KK 

)  =  *R  • 

0  (  12, 15,30) ,KK 

)  =  >9' 

0  I  12, 15,30), KK 

INUF 

F (6,40)  (PT( J  )  , J=l,  102) 

AT  (9X,  102A1,  •  DAYS'  ) 

RN 

F<  6,°1 )N 

AT(/5X,'  ERRORS  (N  INDEXING,  N  =  ',12) 

RN 


ICETRAN    LISTING 
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s. 

1 

SUBROUTINE  PROGDJ 

s. 

2 

COMMON  MODE,NUMACT,NOAC 

s. 

3 

COMMON  NOHOL f JORDUR, A, B 

s. 

u 

COMMON  NAMF.NAME1 t NAME? 

s. 

■5 

COMMON  TABLE, HOI.  0,  I  ALPH 

s. 

6 

COMMON  NARROW(P) , INCOME 

s. 

7 

COMMON  SORT(P) , JSORT(P) 

s. 

8 

DYNAMIC  ARRAY   NARROW, I 
1  J  SORT,KHOLO,Mr>UM,  MARROW 

s. 

9 

DYNAMIC  ARRAY  KPROG 

s. 

10 

DOUBLE  PRECISION  NAME.N 

s. 

11 

DOUBLE  PRECISION  IALPHA 

s. 

12    P 

FOUIVALENCF  (KPROr,(l),D 

s. 

13    C 

THIS  SUBROUTINE  IS  EXEC 

s. 

14    C 

DESTROY  THE  ARRAY  JSORT 

s. 

15 

DESTROY  JSORT 

s. 

16 

DFSTPOY  KPROG 

s. 

17 

RETURN 

s. 

IB 

END 

T,Nl)MAR,lC00E,IFLOW,3ATEM,0ATFD,DATEY,ONUM 
,C,D,E,F,G,H,K1,K2,<3,K<.,K5,K6,LINF(20> 
,NAME3,NAME4,NAMF5,A3(12),MAME,DBXXX(50) 
A(16),MnNTH(12),RLXXXI20),TNTXXX(20) 
(P),INGRID(P),KTIMF(P),IDTIMF(P),IONET(P) 
, KHOLD(P) ,MDUM(P), MARROrfl P),ICAL(P),  IHOL(P) 
NCODE,INGRID,KTIME,I0TIME,I0NFT,SORT(D), 
, ICAL, IHOL 

AME1,NAME2,N4 ME  3, NAME  4, NAMES, BLANK, MAME 
,FMONTH,DRXXX 
BXXX( 22) ) 

UTFO    FROM    THE    CDL     SELINX.        ITS    PURPOSE    IS    TO 
AFTER     ALL     COMPUTATIONS    HAVE    BEEN    MADE. 


ICETRAN  LISTING 
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s. 

1 

s. 

2 

s. 

y 

s  . 

4 

s. 

5 

s. 

6 

s. 

7 

s. 

8 

s. 

q 

s. 

10 

s. 

1 1 

s. 

12 

s. 

13 

s. 

14 

s. 

15 

s. 

16 

s. 

17 

s. 

13 

s. 

19 

s. 

?0 

s. 

21 

s. 

2? 

s. 

?3 

s. 

24 

s. 

25 

c 

26 

s. 

27 

s. 

?fl 

s. 

?<3 

s. 

30 

s. 

31 

s. 

32 

s. 

33 

s. 

34 

s. 

35 

s. 

3* 

s. 

37 

s. 

38 

s. 

30 

s. 

40 

s. 

'♦1 

s. 

42 

s. 

4  3 

s. 

44 

s. 

45 

s. 

46 

s. 

47 

s. 

4R 

SUBROUTINE  PROG 
COMMON  MOOE.NUM 
NOHOL, JO 
NAME, NAM 
TABLE, HO 
NARROW! P 
SORT(  P)  , 
ARRAY 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
DYNAMIC 


10 


1  3 


14 


USDRT.KHOLD.MOU 
OOURLE  PRECISIO 
DOUBLE  PRECISIO 
OOURLE  PRECISIO 
DYNAMIC  ARRAY  I 
EQUIVALENCE  (  DR 
EQUIVALENCE  (IN 
EQUIVALENCE  (IN 
NAMER=NAMF 
CALL  ADDNUMINAM 
GO  TO  (10,20,30 
SFF  IF  NAMF3  FX 
LFN=4*N0ACT 
DISK  F  ILE  INFO! 
GO  TO  111,13,13 
CREATE  THF  FILE 
DO  12  1=1,10 
LINEI I >=0 
DISK  0PFNI2.NAM 
IM  IS  THE  IOFNT 
IH  =  0 

DISK  PUT!?, NAME 
ZERO  IN  RECORD 
DESTROY  1DPR0G 
DEFINE  IDPROG.N 
II  IS  IDENTIFIE 
I  1=0 

DISK  PUTI2.NAME 
STORE  IDENTIFIE 
L  I  NP ( I )  =  I  I 
niSK  PUT (2, NAME 
Gn  TO  14 
PILF  OOFS  EXIST 
DISK  0PEN(2,NAM 
DISK  GET(2,IH,L 
T  I  =  L  I  M  E  (  I  ) 
r>TF  INF  I  DPR  or,  ,N 
DISK  GFT (7,  I  I  ,  I 
NAME 8  FXISTS. 
iponr,  =  0 
PUT  THF  ATTIVIT 


ST 

ACT, 
ROUP 
El  ,N 
LD,  I 
)  ,IN 
JSOR 
NARR 
M,MA 
N  NA 
N  I  A 
N  NA 
DPRO 
XXX( 
TXXX 
TXXX 


NOAC 

,  A,B 

AME2 

AL°H 

CODE 

T(P) 

OH,  I 

RROW 

ME,N 

LPHA 

MER 

G 

9),N 

(15) 

(10) 


T.NJMAR, IC 00 E.IFLOW.OATEM, DATED, DATEY.DNUM 

,C,0,E,F,G,H,Kl,K2,K3,K4,K5,K6,LlNE(20) 

,NAME3,NAME4,NAME5,A3(12),MAMF,DBXXX(50) 

A(16),M0NTH(12),RLXXX(20),INTXXX(20) 

(P),INGRIOtP),KTIME(P),IQTIME(P),lDNET(P) 

,<HOL DIP), MDUM(P), MARROW (PJ,ICAL(P), IH0LIP1 

NCOOE.INGUD.KTIME.IDTIMEjIDNET.SORTIO), 

, ICAL, IHOL 

AME1,NAME2,NAME3,NAME4,NAME5, BLANK, MAME 

,FMONTH, DRXXX 


AMF8  ) 
,12) 

, I  PROG) 


E8,R) 
,40,50,6 
ISTS.    I 

2.NAME8, 
) .IFSTAT 

IF  NONE 


E8.1  ) 
IFIER  OF 

8, IH.LIN 

OF  IDPRO 

OACT.FUL 
P  OF  OF 

8, t I ,IDP 
R  OF  IDP 


0,70) ,K1 

F  YES,  PULL  TDPROGS. 

IFSTAT,  14,  IL  I 

EXISTS  FOR  THIS  PROJECT. 

RECORD  ONE  OF  NAME8. 


E(  1  ) , 1,40) 
C'S. 

L.LOW 

IOPROG  RECORD. 

ROG(l) , l.LENJ 

ROG  ROCORO  IN  1ST  WORD  OF  1ST  RECORD  OF  NAME8. 


3, I H, LINE ( 1 ) , 1, 4) 
S  PROJECT. 
,0, JUNK ,^EXT1 


FOR  THI! 

ER,  1  ) 
TNE( 1 ) ,0, 


OACT.FULL ,LOW 

DPROGI 1 ) ,0,0, JJNK, NEXT) 

STORF  DATE  OF  REPORT  IN  THE  STATUS  WORD. 

Y  NUMBERS  IN  A  LIST. 


72 


s. 

40 

K  1  =1 

s. 

50 

CALL  RETRVE 

s. 

51 

RFTURN 

s. 

52 

c 

utsttfutttttttnutt 

s. 

53 

c 

ENTFR  HERE  WITH  AN  ACT 

s. 

54 

c 

PROGRESS  DATA  ON  COSTS 

s. 

55 

c 

SECOND  WORD,  REPORTED 

s. 

55 

20 

I  A  =  A 

s. 

57 

I3  =  B 

s. 

5R 

c 

CALL  PRLOGX  TO  SEARCH 

s. 

50 

CALL  PRLOGXt  IA,IR,K3,  I 

s. 

60 

c 

IF  K3  IS  POSITIVE,  K3 

•s. 

61 

c 

IS  NEGATIVE,  THE  ACTIV 

s. 

62 

c 

SECOND  CASE,  PRINT  AN 

s. 

63 

IF(K3)21,21,22 

s. 

64 

21 

IF(M0DE)27,27,24 

s. 

65 

27 

WRITF(6,23)  IA 

s. 

'  6 

28 

FORMAT!//, IX, 'PROGRESS 
?CE  THIS  ACTIVITY  IS  NO 

s. 

67 

RETURN 

s. 

68 

24 

WRITEI6.20)  IA.I8 

s. 

60 

20 

FORMAT!//, IX, • ACTIVITY 
?K.   PROGRESS  DATA  FOR 

s. 

70 

RETURN 

s. 

71 

22 

IF( IDPRnG(K3) 1200,200, 

s. 

72 

c 

IDPPOG  POSITIVE  IMPLIE 

s. 

73 

201 

DISK  GET(2,IOPR0G(K3> , 

s. 

74 

r,n  TO  204 

s. 

75 

200 

DO  23  J=1,0 

s. 

76 

23 

LINEJ J)=0 

s. 

77 

204 

RETURN 

s. 

78 

c 

****«*$*****$********* 

s. 

70 

c 

STOPF  REPORTED  FINISH 

s. 

80 

c 

IF  RFPORT  DATF  IS  AFTE 

s. 

81 

c 

IS,  IN  FACT,  FINISHED) 

s. 

«2 

c 

FINISH  DATE  (I.E.,  FIN 

s. 

83 

c 

NFGATIVF  OF  THE  DATE  R 

s. 

84 

30 

IF(  IPR0G-D135.31  ,31 

s. 

85 

31 

L  INEt  21=0 

s. 

86 

GO  TO  3  6 

«:  m 

37 

35 

LINF(2)=-D 

s. 

83 

36 

CnNTINUF 

s. 

HO 

RFTIJRN 

s. 

or) 

r 

*»**«*♦*«***«»**»♦«*»» 

s. 

01 

r 

STORE  REPORTED  START  0 

s. 

0? 

4  0 

LINFt  3) =0 

s. 

03 

RETURN 

s. 

04 

c 

t,«««t»M*U«tt«t«tttt 

s. 

"5 

r 

STORE  REPORTED  COST  IN 

s. 

06 

50 

L  INF<  1  )=C 

s. 

Q7 

RFTURN 

s. 

0  8 

r 

*t«*t «**#************* 

s. 

oo 

60 

!F( I2-I  137,83,37 

s. 

100 

33 

IF  (LINE!  3)  m,37,Hl 

s. 

101 

81 

1F(  I  A3S(LINE(2 ) ) 130,37 

t»UMH«t»*tf»»tt4H*»t*»MUHMt»t«(.n*U 

IVITY  REPORTING  PROGRESS. 

GOES  IN  1ST  WORD  OF  NAME8,  FINISH  INFO  GOES  IN 
START  DATA  GOES  IN  WORD  3  OF  NAME8. 


THE  LIST  FOR  THE  ACTIVITY  WE  SEEK. 

NGRIO.NOACT) 

REPRESENTS  ITS  POSITION  IN  THE  LIST.   IF  IT 

ITY  IS  NOT  IN  A  PART  OF  THE  NETWORK.   IN  THE 

ERROR  MESSAGE. 


DATA  ON  ACTIVITY  ',IAf'  IS  NOT  ACCEPTED  SIN 
T  A  PART  OF  THE  NETWORK.',/) 


',14,'  -  •,14,«  IS  NOT  A  PART  OF  THE  NETWOH 
THIS  ACTIVITY  IS  NOT  ACC EPTED. ' , / I 

201 

S  SOME  OATA  HAS  ALREADY  BEEN  REPORTED. 

LINE!  11,1,12) 


tJttt)tttH«!((nt«tttMlt»IHHtt*t*t<n<Jt 

DATE. 

R  A  REPORTED  FINISH  DATE  (INDICATING  THAT  AN  ACT. 
.STORE  THE  DATE  AS  REPORTED.  TO  INDICATE  AN  EST. 
ISH  DATF  IS  LATER  THAN  THE  REPORT  DATE)  STO^E  T-IE 

FPORTED. 


******************************************** 
ATF. 


«(ttttttttfttntnttttt»»*tttu»tstut«s»it» 
FORMATION. 


**#*$***«»*******************»******»*♦***#* 


,«0 
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s. 

10? 

s. 

103 

s. 

104 

s. 

105 

s. 

106 

s. 

107 

s. 

103 

s. 

109 

s. 

110 

s. 

111 

s. 

112 

s. 

113 

s. 

114 

s. 

115 

s. 

116 

s. 

11  7 

s. 

118 

s. 

119 

s. 

120 

s. 

121 

s. 

122 

SO  IF(LINE(3)-IABS(LINE<2)))37,37,33 

SEE  IF  FINISH  IS  SMALLER  THAN  THF  START. 
IF(M00E)33I ,381, 332 

I  A, LIME (3) ,LINE(2) 

15,'  RF^ORTS 


33 
331 
333 


START  3N  DA/  ',15, •  FINISH  ON 


1A,  I*,LINE<2) ,LINE(3) 

14, '  -  ',14, 


REPORTS  START  ON  DAY  «,I5, 


FINISH  CANNOT  OCCUR  REFORE  START, 
THIS  ACTIVITY  HAVE  BEEN  ZEROED.') 


ALL  STAR 


WRITF(6» 333) 
FORMAT!/, IX,  'ACTIVITY 
I  OAY  • , IS) 
GO  TO  390 
33?  WRITF(6,334) 
3  34  FlRMATl/,tXt "ACTIVITY 
IFINISH  ON  DAY  • , 15) 

390  W°ITE(6,391) 

391  FlR^ATl IX, »***ERROR  -- 
IT  AND  FINISH  DATA  FOR 

L  IMF( 2)=0 
LINE(3)=0 
37  OISK  PUTI2.NAME8, IDPR0G(K3), LINE! 1 ), 1,36) 
RETURN 

70  DISK  OPEN( ?,NAMER,1  ) 

DISK  PUT(2,NAMER,II,IDPP0G(1),1,LEN) 

DI SK  CLOSF (2.NAME8) 

DESTROY  IDP'OG 

RETURN 

END 
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s. 

1 

s. 

2 

c 

s. 

3 

c 

s. 

4 

c 

s. 

5 

c 

s. 

6 

s. 

7 

s. 

fl 

s. 

9 

s. 

10 

s. 

11 

s. 

I? 

s. 

13 

s. 

14 

s. 

15 

s. 

16 

c 

s. 

17 

s. 

18 

c 

s. 

19 

s. 

20 

c 

s. 

21 

s. 

22 

c 

s. 

23 

s. 

24 

c 

s. 

25 

s. 

26 

s. 

27 

s. 

2« 

s. 

29 

s. 

30 

c 

s. 

31 

s. 

32 

s. 

33 

s. 

34 

c 

s. 

35 

s. 

36 

s. 

37 

s. 

31 

s. 

39 

s. 

4  3 

s. 

41 

s. 

42 

s. 

43 

c 

s. 

44 

s. 

45 

r. 

s. 

46 

s. 

47 

c 

s. 

4<* 

c 

SUBROUTINE  PRPORK 

P3W0RK  TAKES  A  DATE  (MO.DY.YR  IN  A, 8, CI  AND  PUTS  WORK  DAY  INTO  D 

THIS  EDITION  OF  PRPORK  MODIFIED  27  JULY  67  BY  J.T.  MACDERMOTT  TO  DO  ERROR 

RETURNS  IF  ANY  PART  OF  THE  GIVEN  DATE  IS  INVALID.   THIS  DONE  SO  AS  TO 

INSURE  PROPER  EXECUTION  OF  SUBSEQUENT  COMMANDS. 

COMMON  MODE,NUMACT,NOACT,NUMAR,ICODE,IFLOW,DATEM,DATFD,DATEY,DNUM 

COMMON  NOHOL, JORDUR, A,B,C,D,E,F,G,H,Kl,K2,K3,K4,K5,K6,LINE(20) 

COMMON  NAME, NAM El , NAME2 , NAME3 , NAME4 , NAME 5, A3 ( 1  2 ) , M AME , DBXXXI 50 ) 

COMMON  TABLE, HOLD. I  ALPHA { 1 6) , MONTH! 12 ) , RLXXXI 20 » , I NTXXXI 20 ) 

COMMON  NARROW! P) , INCODE(P) , INGRID(P) , KT I  ME ( P ) , I  DTI  ME  (  P )  ,  IRNETI  P» 

COMMON  SORT(PI,JSORT(P),KHOLD(P),MDUM(P),MARROW(PI,ICAHP)  , IHOLtP) 

DYNAMIC  ARRAY   NARROW, I NCODE , I NGR I D , K f I  ME , I OT I  ME , I  ONE T ,  SORT  (  D)  , 
1JS0RT,KH0LD,MDUM,MARR0W,ICAL, IHOL 

DOURLF  PRECISION  NAME, NAME  1 , NAME2, NAME3, NAME4 , NAME5, BLANK  ,  MAME 

DOUBLE  PRECISION  I ALPH A , FMONTH, DBXXX 

DOUBLE  PRECISION  MON 

SET  'D'  =  0  IN  CASE  NO  VALIO  WORK  DAY  CAN  RE  FOUND  (IF  GIVEN  DATF  BAD) 

0  =  0 

HOLD  EXISTING  JOBDUR  ASIDE  IN  CASE  PSEUDO  JDBDUR  IS  USFO  TO  GET  CALENDAR 

MOBOUR=JOBDUR 

PUT  A  VALUE  INTO  JOBDUR  IN  CASE  A  CALENDAR  iUST  BE  GFNERATED 

J0BD'JR  =  300 

SEE  IF  A  STARTING  DATE  HAS  REEN  ASSIGNED 
200  IF(DATEM)510,510,515 

NO,  PRINT  ERROR  MESSAGE 
510  WRITE(6,900) 

GO  TO  100 
515  INDATM=A 

INOATD=B 

IN0ATY=C 

SEE  IF  YEAR  WAS  GIVEN,  AS  IT  MUST  BE 

IF( INOATY)300,300,505 
300  WRITF(6,901) 

GO  TO  100 

SEE  IF  GIVEN  DATE  OCCURS  BFFORE  PROJECT  START 
5  05  !F(1000D.*DATY»100.*D4TEM*OATEO-10000.«C-100.*A-B)506,506,504 
504  J=DATE0 

K=OATEM 

L=0ATFY+1900 

MON=FMnNTH(K) 

BLANK^FMONTHI INDATMI 

WRITE (6, 90 2  I INDATD.BLANK.TNDATY, J,MON,L 

GO  TO  100 

DESTROY  ANY  ICAL  LEFT  AROUND 

506  DESTROY  ICAL 

YFS,  GENERATE  A  CALENDAR 

507  CALL  DATE 

MATCH  RFP3RT  DAY  TO  CALENDAR  TO  FIND  CORRESPONDING  JOB  OAY 
MATCH  THE  YE*R 
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s. 

49 

s. 

50 

s. 

51 

5?5 

s. 

5? 

s. 

53 

5?0 

s. 

54 

s. 

55 

s. 

56 

C 

s. 

57 

530 

s. 

58 

s. 

59 

C 

s. 

60 

535 

s. 

61 

538 

s. 

6? 

s. 

63 

536 

s. 

64 

s. 

65 

c 

s. 

66 

537 

s. 

67 

s. 

68 

s. 

69 

s. 

70 

540 

s. 

71 

c 

s. 

72 

s. 

73 

s. 

74 

c 

s. 

75 

545 

s. 

76 

s. 

77 

c 

s. 

78 

550 

s. 

79 

s. 

80 

r 

s. 

81 

556 

s. 

8? 

c 

s. 

83 

551 

S. 

84 

s. 

8*. 

s. 

86 

55? 

s. 

87 

5' 

55 

s. 

88 

C 

s. 

89 

s. 

90 

s. 

91 

C 

s. 

92 

500 

5. 

93 

C 

s. 

94 

5. 

95 

s. 

96 

l  no 

s. 

97 

s. 

98 

91(1 

s. 

qo 

911 

s. 

100 

90? 

Of)    5?0    l=l,JOBDUR 

IFUCALI3,  I  >-IN0ATY)520 

INQAY=I 

GO  TO  530 

CONTINUE 

JOBDUR=JOBDUR+?00 

GO  TO  507 

MATCH  THE  MONTH 

00  540  I=INOAY, JORDUR 

1  Ft ICALI 1, 11-INDATM1540 
SEE  IF  THIS  IS  THE  SAME 
IF(  IN0ATY-ICAH3,  I  I  )538 
IN0AY=I-1 
GO  TO  545 
TNDAY=I 
GO  TO  545 

GIVEN  MONTH  HAS  NO  PROJ 
BLANK=FMONTH( INDATM) 
INDATY=INDATY+1900 
WRITE(6,903)  INOATD.BLA 
GO  TO  100 
CONTINUE 

IF  CONTROL  COMES  HEREi 
J0RDUR=J08DUR+200 
GO  TO  507 
MATCH  THE  DAY 
00  555  I=INDAY,JORDUR 
1FI  ICAL(2, I I-INDATD155? 
GIVEN  DATE  NOT  A  WORKIN 
1NDAY=I-1 
K5  =  l 

CHECK  TO  SEE  IF  OAY  OF 
IF( INOAY)504,504,500 
THE  MATCH  FOUND,  NOW  RE 
INOAY=I 
K5  =  0 

r,n  to  500 

IF(  ICAI  (  I, I1-INDATM1555 
CONTINUE 

OAY  NOT  FOUND  IN  CALENO 

J0BDUR= J030UR+30 

GO  TO  507 

1NDAY  IS  OAY  TO  ASSIGN 

0=lNt)AY 

PUT  JOBOUR  BACK  AS  WAS 

JOBOUR=MOBOUR 

BETURN 

JTBDUR^MOBOUR 

FRROR  RETURN 

FORMAT!//'  *****♦•/,'  A 

1  OTHFR  START  AND  FINISH 

?OUT  UATFS,  TR  FIRST  ASS 

1  FIRMATI//'  *♦*♦*««/'  A 

1ART  HAS  RFEN  ASSIGNED.' 

FOPMATI//'  THE  GIVTN  1A 


,525,505 


,535,537 

YEAR  STILL 
,536,536 


ECT  WORK  DAYS.  PRINT  MESSAGE  AND  RETURN 

NK, INDATY.NAME 

MONTH  NUMBER  NOT  FOUND  IN  ICAL  IN  YEAR 


,551,550 

G  DAY,  BAC<  UP  ONE 


REPORT  OCCURS  BEFORE  PROJECT 
TURN 

,555,550 

AR,  GENERATE  A  LONGER  ONE 

AND  RETURN 


PROJECT  START  DATE  MUST  BF  ASSIGNED  BEFORE 
DATES  MAY  3E  ASSIGNED'/,'  EITHER  WORK  WITH 

TSN  A  PROJECT  START  DATE.'/,'  **«*«*■//) 

START  OR  FINISH  OCCURRING  BEFORE  PROJECT  ST 

/, •  THIS  IS  NOT  ALLOWED.'//) 

TE« ,13, IX, A3, 15,'  3C:URS  BEFORE  PROJECT  STA 


S.  101 


102 


1RT» ,13, IX, 43, 15, •,  AND  SO  IT  MAY  NOT  RE  USED.'/,'  NO  ACTION  TAKEN. 
?•/) 
903  FORMAT!//'  ******•/,•  THE  MONTH  OF  THE  GIVEN  DATE' , I  3 , IX , A3,  !  5 , •  I 
INCLUDES  NO  WORKING  DAVS  FOR  PROJECT  ••«, A8 ,' •'.'/, •  NO  ACTION  TAKEN 
2N.'/) 
END 
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77 


s. 

s. 
s. 
s. 
s. 

s. 
s. 
s. 
s. 
s. 
s. 

s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 


1 

2 
3 

4 
5 
6 
7 
8 
9 
10 
11 

12 
13 
14 

15 
16 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 


SUBROUT 
FLOW  IS 
SUBROUT 
NOW  PRO 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
DYNAMIC 
1JS0RT.K 
DOUBLE 
DOUBLE 
DESTROY 
DESTROY 
Kl=9 
CALL  RE 
RECOVER 
DESTROY 
DESTROY 
Kl  =  5 
CALL  "RE 
PUT  KT 
I=-l 
28  KT=I+2 
KB=NUMA 
USE  APP 
DO  39  I 
IS  THER 
IFINARR 
YES,  GF 
GET  THE 

30  KN=NARR 
K=IABS( 
KN=KN/1 
NOW  BRA 
GO  TOO 
START-S 

31  NARROW! 
GFT  THE 
KN=-KN 
NOW  GO 
GO  TO  4 
START-F 

32  NARPOW! 
THE  NEW 
KN=-KN 
NOW  GO 


INE  PROGFL(JBDR) 

THE  CALLING  SUBROUTINE  FOR  SCHEDULING  COMPUTATIONS 
INE  FLOW  REVISED  BY  T.  MAC3ERM0TT  14  JUNE  1967.   CHANGE  IS  THAT 
GRAM  IS  CALLED  PROGFL  --  ANO  IT  CALLS  PR3GSF  ISTMT  52)  VICE  PRSFEX. 
MODE,NUMACT,N0ACT,NUMAR,ICO0E, I  FLOW, DAT  EM, DATED, DATEY , DNUM 
N0H0L,J0BDUR,A,8,C,D,E,F,G,H,K1,K2,K3,K4,K5,K6,LINEI20) 
NAME,NAMF1,NAME2,NAME3,NAME4,NAME5, A3 (  12 ) , M AME , OBXXX! 50 ) 
TABLE, HOLD, I  ALPHA 1 1 6) , MONTH! 12),RLXXX!20),INTXXXI20) 
NARROW(P),INCOOE(P),INGRID!P) , KT I  ME « P ) , I  DTI  ME! P ) , I DNET ( PI 
SORT(P)  ,JSORT!P),KHOLD(P),MDUMIP)  ,  MARROW!  P  I,  ICAL  !  P)  ,  I  HOL  (P  ) 

ARRAY   NARROW, INCOOE,  I NGR I  0, KT I  ME, IDT  I  ME , I  ONE T, SORT! D) , 
HOLD.MOUM.MARROW, ICAL, I HOL 

PRECISION  NAME, NA ME  1, NAME 2, NAME3.NAME4, NAMES, BLANK t MAHE 
PRECISION  I  ALPHA, FMONTH.OBXXX 

CALENDAR  IN  ICAL  WHEN  CALCULATING  NEW  SCHEDULE 

ICAL 

TRVE 

NARROW  FROM  SECONDARY  STORAGE 

NARROW  FIRST  TO  BE  SURE  THE  AS  INPUT  IS  NOT  USED 

NARROW 


TRVE 

AT  TOP  OF  LIST  BEING  CONSIOEREO,  KB  AT  BOTTOM, 


THESE  MAY  CHANGE 


R3PR! AT 
=KT,KB 
F  A  LAG 
0WI3,  I) 
T  THE  0 
INPUT 

own,  i) 

KN-IKN/ 

0 

NCH  ON 

4,31,32 

TART,  S 

3,1  )=KN 

PROPER 
KTIMEd 
ANO  ADO 
0 

INISH, 
3,11=  K 

ARROW 


E  DURATIONS  WITH  GIVEN  LAG  VALUE  TO  SET  UP  RELATIONSHIP 

OF  ANY  KIND 
130,39,30 

PFRATOR,  PLUS  1,  TO  BRANCH  ON 
LAG  VALUE 

101*10)4-1 

OPERATOR 

,33),K 

UBRRACT  DURATION  OF  INDEPENDENT  ACTIVITY,  ADD  LAG  VALUE 

-KTIME (1, NARROW! 1,1) ) 

LAG  FOR  THE  NEW  ARROW 
,NARR0W(2, I ) ) 

NFW  ARROW 

SUBTRACT  BOTH  DURATIONS  AND  LAG  FACTOR 

N-KTIME!  1, NARROW! 1,I))-KTIMF(1,NARR3W(2,I)) 

HAS  THE  SAME  KN,  BUT  WITH  THE  OTHER  ALGEBTAIC  RIGN 


ANO  ADO  ANOTHER  ARROW 
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s. 

49 

s. 

50 

c 

s. 

51 

s. 

5? 

c 

s. 

53 

s. 

54 

c 

s. 

55 

s. 

56 

s. 

57 

s. 

58 

s. 

59 

c 

s. 

60 

c 

s. 

61 

s. 

62 

s. 

63 

c 

s. 

64 

s. 

65 

s. 

66 

s. 

67 

s. 

68 

c 

s. 

69 

s. 

70 

s. 

71 

s. 

72 

c 

s. 

73 

c 

s. 

74 

s. 

75 

c 

s. 

76 

c 

s. 

77 

c 

s. 

78 

s. 

79 

s. 

80 

c 

s. 

81 

s. 

82 

c 

s. 

83 

s. 

84 

s. 

85 

s. 

86 

GO  TO  40 
FINISH-FIN! 

33  NARR0W13,I> 
GET  THE  PRO 
KN=-KN-KTIM 
NOW  GO  AND 
GO  TO  40 

34  NARR0W(3,l) 

39  CONTINUE 
GO  TO  5? 
FOR  S-S.S-F 
FIRST  INCRE 

40  NUMAR=NUMAR 
DEFINE  NARR 
NOW  SHIFT  A 
DO  310  KK=2 
KJ=NUMAR-KK 
DO  310  KM=1 

310  NARROWIKM.K 
PUT  NEW  (PS 
NAPROW(l,l) 
NARR0W(2t  1) 
NARROW! 3,  11 
IF  THIS  WAS 
ARROWS,  THE 
IF( I+1-NU1A 
FLOW  NETWOR 
CALL  PROGFF 
BACKWARD  FL 
5?  CALL  PROGOL 
DESTROY  NAR 
BRING  STATU 
JBDR=J08DUR 
GET  BACK  ST 
Kl  =  10 

CALL  RETRVE 
RETURN 
END 


SH,  SUBTRAC 
=KN-KTIME(l 
PFR  LAG  FOR 
E(  1, NARROW! 
ADD  ANOTHER 

=  KN 


T  DURATION  OF  DEPENDENT  ACTIVITY  ,  ADD  LAG  VALUE 
,NARR0W(2,I)) 

THE  NEW  ARROW 
1,1)) 

ARROW  FOR  THIS  F-F  RELATIONSHIP 


,  AND 
MENT 

♦  1 

0W.3, 
LL  OF 
,NUMA 

♦  1 
,3 

J*l)  = 
EUOO) 

NARR 

NARR 

KN 

LAST 
N  GO 
R)28, 
K  TO 

TO  P 
OWING 


F-F  R 

NUMAR, 

NUMAR, 

NARRO 
R 


ELATIONSHIPS  ANOTHER  ARROW  IS  ADDED  TO  TOP  OF  LIST 
THEN  REDEFINE  NARROW  ONE  LINGER 

HALF.LOW 

W  DOWN  BY  ONE 


NARROWIKM.KJ) 

ARROW  ON  TOP  OF  LIST 
OWC 2.1  +  1  J 

owci.m ) 

ARROW,  LEAVE  LOOP  AND  GO  ON  TO  40.  IF  THERE  ARE  MORE 
BACK  ANO  START  LODP  AGAIN  WITH  NEXT  ARROW,  NOW  2  BELOW. 
52,52 

FIND  ALL  EARLY  STARTS  AND  FINISHES 
ERFORM  FORWARD  FLOW  —  THIS  CALL  PROGBF  WHICH  DOES  THE 


ROW 

S  WORDS  UP  TO  DATE,  HOLD  JOBDUR  SO  IT  WON'T  BE  RUN  OVER 

ATUS  WORDS  IN  CASE  NUMAR  WAS  CHANGED 
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s. 

1 

s. 

2 

s. 

3 

s. 

* 

5. 

5 

S. 

6 

S. 

7 

S. 

8 

s. 

9 

s. 

10 

s. 

11 

s. 

12 

s. 

13 

s. 

14 

s. 

15 

s. 

16 

s. 

17 

s. 

18 

s. 

19 

s. 

20 

s. 

21    P 

s. 

22    P 

s. 

23 

s. 

24    C 

s. 

25 

s. 

26 

s. 

27 

s. 

23 

s. 

29 

s. 

30 

s. 

31 

s. 

32 

s. 

33    C 

s. 

34 

s. 

35 

s. 

36 

s. 

37 

s. 

33    C 

s. 

39    C 

s. 

40 

s. 

41 

s. 

42 

s. 

43 

s. 

44 

s. 

45 

s. 

46 

s. 

47 

SUBROUTINE  PROGIX 

COMMON  MODE, NUMACT , NOACT , NUMAR , I  CODE, I  FLOW, DAT  EM,  DATED,  OATEY.DNUM 
COMMON  NOHOL.JOBDUR, A,B,C,D,E,F,G,H, K1,K2,K3,K4,K5,K6, LINE  120) 
COMMON  NAME,NAME1,NAME2,NAME3,NAME4,NAME5, AB( 1 2 ) , M AME , DBXXX! 50  I 
COMMON  TABLE, HOLD, I  ALPHA (16), MONTH! 12 J , RLXXX! 201 , INTXXXI 20) 
COMMON  NARROW! P) , INCODE(P), I  NCR  I D( P )  , < TI ME ( P )  ,  1  DTI  ME ( P ) , I DNET( P) 
COMMON  SORT(P), JSORT(P),KH0LD(P) ,MDUMIP),MARROW(P),ICAL(P) ,IHOLIP) 
DYNAMIC  ARRAY   NARROW, I NCODE , I NGR ID, KT I  ME, I DT I  ME, I ONET , SORT ( D) , 
1 JSORT, KHOLD.MDUM, MAR ROW, ICAL, IHOL 
DYNAMIC  ARRAY  KPROG,  IOPROG,  JCOST,  IACTRC 

DOUBLE  PRECISION  NAME , NAME  1 , NAME2, N\ME3 , NAME4 , NAME5, BLANK, MAME 
DOUBLE  PRECISION  I  ALPHA, FMONTH, DBXXX 
DOUBLE  PRECISION  NAME7 
INTEGER  F 
REAL  RLXXX 

EQUIVALENCE  ( DBXXX ( 8  ) , NAME7 ) 
EQUIVALENCE  I  I NTXXXI 6 ) , NSEL ) 
EQUIVALENCE  ( I NTXXX! 17 ) , I T I MRC ) 
EQUIVALENCE  ( NAME3 , OBXXX ( 9 ) ) 
EQUIVALENCE  (  INTXXXI  14), II  ) 
EQUIVALENCE  (RLXXXI  17), WP I, (RLXXXI 19), CI) 
EQUIVALENCE  ( I DPROGI  1 ) , DBXXXI 23 ) ) 
EQUIVALENCE  ( KPROG ( 1 ), DBXXX ( 22 ) ) 
KKK=INTXXX(20) 

SAVE  THE  WORKDAY  SET  IN  D  BY  THE  COL. 
IWKOAY=D 
JWKOAY=IWKDAY 

DISK  FILE  INF0(2,NAME8,tFSTAT, IH, IL ) 
IF(  IFSTAT-1)3,3,4 

3  WRITE(6,9) 

9  FORMAT(/,lX, 'NO  PROGRESS  DATA  HAS  BEEN  REPORTED.   NO  COMPUTATIONS 
1CAN  RE  MADE.') 
ERROR  RETURN 

4  IF( ISTAT( JUNK, JS0RT1-1 169,69,65 

ENTRY  HERE  IMPLIES  JSORT  MUST  BE  CREATED. 
65  DEFINE  JSORT , NOACT , HALF , LOW 

DO  70  I=1,N0ACT 
70  JSORT! I )=I 

NSEL=NOACT 

ENTRY  HFRF  IMPLIES  JSORT  EXISTS. 

INITIALIZE  THE  KTIME  ARRAY. 
69  OFSTROY  KTIME 

DFFINE  KTIME, 7, POINTER, LOW 

00  5  1=1,7 

OEFINE  KTIMFI I ), NO ACT, HALF , LOW 

5  RELEASE  KTIME!  I) 
DO  6  1=1, NSEL 
J=JSORT! I) 
IG=1DNFT(J) 
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s. 

48 

s. 

49 

s. 

50 

s. 

51 

s. 

52 

s. 

53 

s. 

54 

s. 

55 

s. 

56 

s. 

57 

s. 

50 

s. 

59 

s. 

60 

s. 

61 

s. 

62 

s. 

63 

s. 

64 

s. 

65 

s. 

66 

s. 

67 

s. 

68 

s. 

69 

s. 

70 

s. 

71 

s. 

7? 

s. 

73 

s. 

74 

s. 

75 

s. 

76 

s. 

77 

s. 

78 

s. 

79 

s. 

R0 

s. 

81 

s. 

82 

s. 

83 

s. 

84 

s. 

85 

s. 

86 

s. 

87 

s. 

88 

s. 

89 

s. 

90 

s. 

91 

s. 

92 

s. 

93 

s. 

94 

s. 

95 

s. 

96 

s. 

97 

s. 

98 

s. 

99 

s. 

100 

s. 

I'M 

s. 

10? 

DISK  GETI2, IG.LINEI  1  ),9,  12) 
6  KTIMEd  t  J)=L1NE(  1) 
RELEASE  IONET 

FIRST  CALL  TO  PROGFL  RETURNS  PLANNED  PHASE  JURATION. 
IF(N0ACT-NSEL)4  01,40  2,401 

401  CALL  PROGFL(JRDR) 
GO  TO  403 

402  JRDR=JOROUR 

403  0RGDUR=JB0R-1 

CALL  TO  PROGET  RETRIEVES  PROGRESS  DATA  ST3RE0  ON  NAME  8. 

CALL  PROGETI 1,1,3) 

IF(N0ACT-NSEL)34,35,34 

35  00  30  I=1,NSEL 
JJ=JSORT(I ) 

IF t IDPROGI JJ ) )30,30,31 
31  KPR=IABS(KPR0G<2,  JJ) .) 
IF(KPR)501 ,501,502 
NO  FINISH  REPORTED. 
501  IF(KPR0G(3, JJ) 1503,503,504 
NO  START  EITHER. 

503  KSWTCH=1 
GO  TO  550 

NO  FINISH  BUT  A  START 

504  KSHTCH=2 
GO  TO  550 

A  FINISH  REPORTED  —  HOW  ABOUT  A  START 
802  IFIKPR0GI3, JJ) 1505,505,506 
FINISH  RUT  NO  START. 

505  KSWTCH=3 
GO  TO  550 

START  ANO  A  FINSIH. 

506  KSWTCH=4 

550  GO  TO  (30,300, 33,36) ,<SWTCH 

START  ONLY 
300  KTMEI  2,  JJ)=KPR0Gt3,  JJ) 

KTIMEI3, JJ)=KPR0G(3, JJ) 

KTIMF(4,JJ)=KPR0G(3,JJ)*KTIME(l,JJ)-l 

KTIME(5,JJ)=KPR0G(3,JJ)*KTIME(1,JJ)-1 

GO  TO  30 

33  KTIME(2,JJ)=KPR-KTIME( 1,JJ)+1 
KTIMEI3, JJ)=KTIME(2,JJ) 
KTIME(4,JJ)=KPR 
KTIME(5,JJ)=KPR 

GO  TO  30 

IF  ROTH  S  AND  F  ARE  GIVEN,  SET  KTI1E  FS'S,  LS'S,  EF'S,  LF'S. 

36  KTIMEI2, JJ)=KPR0G(3, JJ) 
KTIME(3,JJ)=KPROG(3,JJ) 
KTIMEI4,  JJ)=KPR 
KTIMEI5,  JJ)=KPR 

KTIMFC It JJ)=KPR-KPR0G(3tJJ)*l 
30  CONTINUE 
GO  TO  370 

34  00  37  I=1,NSFL 
J=JSHRT( I ) 
KPR»IABS(KPR0G(2tJ) ) 
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s. 

101 

s. 

104 

38 

s. 

105 

39 

s. 

106 

37 

s. 

107 

c 

s. 

108 

c 

s. 

109 

370 

s. 

110 

s. 

111 

c 

s. 

112 

s. 

113 

42 

s. 

114 

s. 

lis 

41 

s. 

116 

43 

s. 

117 

s. 

118 

40 

s. 

119 

c 

s. 

120 

s. 

121 

c 

s. 

122 

s. 

123 

s. 

124 

s. 

125 

s. 

126 

200 

s. 

127 

c 

s. 

128 

71 

s. 

129 

710 

s. 

130 

s. 

131 

s. 

132 

s. 

133 

7? 

s. 

13  4 

s. 

135 

s. 

136 

s. 

137 

c 

s. 

138 

c 

s. 

139 

s. 

140 

s. 

141 

s. 

14? 

s. 

143 

s. 

144 

s. 

145 

s. 

146 

s. 

147 

73 

s. 

148 

s. 

149 

s. 

150 

s. 

151 

c 

s. 

152 

z 

s. 

1  53 

r 

s. 

154 

r 

s. 

155 

s. 

156 

606 

IF(KPR)37,37 
1F(KPR0G(3,J 
KTIMEI 1 , J)=K 
CONTINUE 
CHECK  TO  SEE 
2  IMPLIES  WO 
DO  40  J=1,NS 
I=JSORT( J) 
SEE  IF  A  FIN 
IF(KPR05(2,I 
KTIMEI4.I 1=0 
KTIMEI5.I )=0 
IFIKPROGO.I 
KTIMEI3, I  1=0 
KTIMEI2.I  )=0 
CONTINUE 
SECOND  CALL 
CALL  PROC-FLI 
CHECK  THE  VA 

K1  =  10 

CALL  RETRVE 
ICOST=INTXXX 
IF( INTXXXI20 
IF( IC0ST)71, 
IF  ICOST  IS 
WRITF(6,710) 
FORMAT! //, IX 
1ST  INDEX  CAN 
DESTROY  JSDR 
DESTROY  KPRO 
ERROR  RETURN 
NAME7=NAME 
CALL  ADONIIMI 
DISK  FILE  IN 
DISK  GETI2.I 
COMPUTE  COST 
NAME7. 
IG=LINE(l ) 
LEN=LINF(?) 
DEFINE  IACTR 
DISK  GET(2,1 
DFFINF  JCOST 
i)0  73  1  =  1,  LF 
IG=IACTRC( I) 
DISK  GET (2,1 
JC3ST1  I  )=LIN 
DESTROY  IACT 
I  ACTCO  =  0 
IESTCO=0 
COMPUTE  FSTI 
UWAYS  US  JC 
COSTS.   IF  A 
LINFAR  PO"TI 
IFINOACT-NSE 
DESTROY  10NE 


,38 

)  137,37,39 

PR-KTIMEI3, J)*l 


WHICH  IN") 
RK  PROGRES 
EL 


EX  IS  REQUESTED.   K3=l  IMPLIES  COST  INDEX  ONLY,  K3= 
S  INDEX  ONLY,  K3=3  IMPLIES  STATUS  INDEX. 


ISH  HAS  BEEN  REPORTED. 
1  141,42,41 


1  140,43,40 


TO  PROGFL 

JBDR) 

LUE  OF  ICO 


RETURNS  LATEST  REVISED  ESTIMATE  OF  PHASE /PROJECT 
ST  TO  SEE  IF  ESTIMATED  COST  DATA  EXISTS  IN  NAME7. 


(9) 

1-2)200,72 
71,72 
ZERO,  PRIN 

NAME 
,  'COST  DAT 
NOT  BE  COM 
T 
G 


,200 

T  ERROR  MESSAGE  AND  RETURN 


OTHERWISE,  GO  AHEAD. 


A  HAS  NOT  BEEN  FILED  FOR  PROJECT  '.AS,'.   CO 
PUTEO.' ,/) 


NAME7.7) 

F0I2.NAME7 

G.LINE(l), 

COMPONENT 


CLEN.FULL 
G,  IACTRCI  I 
,LEN,FULL, 

N 


,  JUNK,  IG, IL1 
0,8,  JUNK, NEXTI 
OF  STATUS  INOES.   RETRIEVE  EST.  COST  DATA  FROM 


,LOW 

) ,0,0, JUNK, NEXT) 

LOW 


r,,LINE(l),0,4,JUNK,NEXT) 

F( 1 1/100 

°C 


MATED  COST 
OST  WHEN  C 
CTIVITY  IS 
ON  OF  COST 
L1606.605, 
T 


TO  DATE. 
OMPUTING  ESTIMATED  COSTS.   DON«T  EVER  USE  KPR3G 

FINISHED,  TAKE  WHOLE  COST  --  IF  IN  PROGRESS,  TAKE 

--  IF  NOT  STARTED,  T4<E  ZERO  COST. 
606 
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s. 

157 

s. 

158 

s. 

159 

s. 

160 

s. 

161 

s. 

16? 

s. 

163 

s. 

164 

s. 

165 

601 

s. 

166 

600 

s. 

167 

s. 

163 

s. 

169 

s. 

170 

s. 

171 

610 

s. 

172 

s. 

173 

609 

s. 

174 

611 

s. 

175 

s. 

176 

607 

s. 

177 

605 

s. 

178 

s. 

179 

s. 

180 

76 

s. 

181 

77 

s. 

182 

s. 

183 

75 

s. 

184 

s. 

185 

s. 

186 

74 

s. 

187 

C 

s. 

188 

c 

s. 

189 

c. 

s. 

190 

c 

s. 

191 

s. 

19? 

s. 

193 

s. 

194 

82 

s. 

195 

83 

s. 

196 

34 

s. 

197 

s. 

198 

85 

s. 

199 

s. 

700 

31 

s. 

701 

s. 

20? 

s. 

203 

86 

s. 

?04 

s. 

?0  5 

37 

s. 

?06 

80 

s. 

?07 

s. 

?oq 

s. 

?09 

<;. 

210 

C 

s. 

?1 1 

90 

DESTROY  IOTIME 

Kl  =  9 

CALL  RETRVE 

00  600  I=1,NSEL 

J=JSORT(I ) 

IG=IDTIME(J) 

DfSK  GET(2,IG, LINE!?), 5,20) 

00  601  L  =  ?,5 

KTIMEIL, J)=LINE(L» 

CONTINUE 

00  607  I=1,NSEL 

J=JSORT( I) 

KPR  =  I ABS(KPR0G(2,  J)  ) 

IF <KPR)609,609,610 

KTIMEI4, J1=KPR 

KTIMEI5, J)=KPR 

IF(KPR0G(3, J) ) 607, 60  7, 611 

KTIMEI2, J)=KPR0G(3, J) 

KTIME(3,J)=KPR0G(3,J1 

CONTINUE 

00  74  I=1,NSEL 

J  =  JSORTI  I  ) 

IF( IWKDAY-KTIME(2,J) 174,76,76 

IF( IWKDAY-KTIMEI4, Jl ) 75, 77, 77 

IESTCD=IESTCO+JCOST( J) 

GO  TO  74 

DlFF=IWKDAY-KTIMEl?,J> 

OIV=KTIME< I, J) 

IESTCO=IESTC0+( (DIFF/0IV1*JC0ST(J1) 

CONTINUE 

COMPUTE  ACTUAL  COST  TO  DATE. 

IF  ACTIVITY  IS  IN  PROGRESS,  TAKE  LINEAR  PORTION  OF  COST  —  IF  FINISHED, 

TAKF  ENTIRF  COST  AS  REPORTED  IN  N4ME8  (OR  N4ME7  IF  NOTHING  IN  NAME8)  — 

IF  NOT  STARTED  ASSIGN  ZERO  COST. 

00  80  I=1,NSEL 

J  =  JS0RT(  I) 

IF( IWKDAY-KTI ME (2, J) 180,82,8  2 

IF (IWKOAY-KTIHE (4, J  1)81,83,83 

IFIKPROGI  1, J) 184,84,85 

IACTCO=IACTCO+JCOST( J) 

GO  TO  80 

iactco=iact:o+kprog< i,ji 

GO  TO  30 

PIFF=IWKDAY-KTIM£(?, J) 

niV=KTIMF(l, J) 

IF (KPROGtl.Jl 186,86,87 

IACTC0=IACTC0+((DIFF/0IV)*JC0ST(J1) 

GO  TO  30 

IACTC0=IACTC0t((niFF/3IV)*KPR0G(l,Jl) 

CONTINUE 

IPHCO=0 

no  90  I=1,NSEL 

J  =  JSORT( I  1 

COMPUTE  ESTIMATED  PHASE  OR  PROJECT  COST. 

IOHCO=IPHCn*JC^ST( Jl 


83 


s. 

212 

s. 

213 

C 

s. 

21* 

s. 

215 

s. 

216 

s. 

217 

s. 

218 

C 

s. 

219 

c 

s. 

220 

s. 

221 

c 

s. 

22? 

s. 

223 

786 

s. 

22* 

s. 

225 

737 

s. 

226 

C 

s. 

227 

737 

s. 

228 

C 

s. 

229 

c 

s. 

230 

s. 

231 

s. 

232 

c 

s. 

233 

962 

s. 

23* 

s. 

235 

s. 

236 

s. 

237 

s. 

238 

9* 

s. 

239 

s. 

2*0 

s. 

2*1 

9*0 

s. 

2^2 

s. 

2*3 

s. 

?** 

950 

s. 

2*5 

s. 

2*6 

952 

s. 

2*7 

s. 

2*8 

963 

s. 

2*9 

96* 

s. 

250 

380 

s. 

?5l 

381 

s. 

25? 

s. 

253 

s. 

?5* 

379 

s. 

255 

180 

s. 

256 

18 

s. 

257 

s. 

258 

20 

s. 

259 

s. 

?60 

s. 

?6l 

19 

s. 

?6? 

DESTROY  JCOST 
COMPUTE  THE  COST 
ACOST=IACTC0 
ECOST=IESTCO 
TCOST=lPHCO 
CI=( TCOST-! ACOST 
IF  NO  START  AND/ 
PLACES  IN  THE  KT 
DESTROY  KPROG 
SEE  IF  ITIMRC  HA 
IF( ITIMRC) 737,78 
ITIMRC=( (  .  15)*J0 
WRITEI6.787)  ITI 
FORMAT!/, IX, 'ASS 

IAKEN  TO  BE  ',1*, 
TN=TIME  NOW. 
TN=IWKDAY 
PRO  IS  THE  REVIS 
CONTAINS  THE  REV 
PRD=JBDR-1 
IF(NSEL-N0ACT)96 
PTR  IS  THE  PHASE 
PTP.=  ITIMRC*(ORGD 
CONST=PTR*I l.-IT 
DO  9*  J=1,NSEL 
l=JSORT( J) 
IF(KTIMF(2,I)-IW 
CONTINUE 

WRITF(6,952)  IWK 
RETURN 

DO  950  J^l.NSFL 
I=JS0RT(J1 
IF(KTIME(*,I >-IW 
CONTINUE 

WRITEI6.952)  IWK 
FORMAT! /, 1 X, 'WOR 

1  THIS  SU8SET  OF 
RETURN 

CONST=( t.-(TN/( J 
IF(C0NST)380,380 
WRITE(6,38l)  CON 
FORMAT!/, IX, 'DEN 

1  COMPUTATIONS  CA 
DESTROY  KTIME 
RETURN 

IF(Cf)NST-(RPD-EP 
IF(F)18,18,19 
»ORE=CONST-(RPD- 
WRITFI6, 20)  MORF 
FOR"AT( //, IX, 'TH 

IN  CAN  Rf  MADE  UP 
DESTROY  KTIME 
"FTURN 

WP=( (CONST-IPRO- 
I F ( F ) 850,850,89a 


INDEX. 


ECOST) I/TCOST 
OR  FINISH  DATA  HAS  8EEN  REPORTED,  ZERO  THE  APPROPRIATE 
IME  ARRAY. 

S  BEEN  DEFINED  --  IF  NOT,  MAKE  IT  15  PERCENT  3F  J38DUR. 

6,737 

BOUR  )<•  .5 

MRC 

IGNMENT  OF  TIME  RECOVERABLE  WAS  NOT  MADE.   IT  IS  T 

•  DAYS.') 


FD  NETWORK  DURATION.   JBDR  (AFTER  SECOND  CALL  TO  PROGFL) 
ISED  VALUE  PLUS  ONE. 

2,963,962 

TIME  RECOVERABLE. 
UR/( JOBDUR-l. ) ) 
N/( JOBOUR-1. ) ) ) 


KOAY)9*0,9*0,9* 

DAY 

KDAY)950,96*,96* 

DAY 

KOAY  ',1*,'  DOES  NOT  OCCUR  TURING  THE  EXECUTION  OF 

ACTIVITIES.   IT  IS  NOT  VALID.') 

03DUR-1. ) ) )*ITIMRC 

,379 

ST 

OMINATOR  OF  WORK  PROGRESS  INDICATOR  IS  ',F6.2,'  NO 

N  BE  MADE  OR  ACTION  TAKEN.') 

0) ) 180,19, 19 

EP0I+.5 

E  REMAINING  WORK  WILL  REQUIRE  ',13,'  MORE  DAYS  THA 
.   REVISE  YOUR  SCHrDULE.') 

ORGOUR ))/CONST)+.0O5 
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S.  263    C       DEPENDING  UPON  WHICH  INDEX  WAS  REQUESTED,  OUTPUT  THE  VALUE. 

S.  264      850  GO  TO  (  801  ,  840  ,  870)  ,KKK 

S.  265      801  C1=CI*.005 

S.  266  WRITE!6,802)  CI.JWKDAY 

S.  267      802  F0RMATI30X,'****  THE  VALUE  OF  THE  COST  C0MP3NENT  IS  •F5.2,«  FOR  DA 

IV  • , 14, •  ****• ) 
S.  268  DESTROY  KTIME 

S.  269  RFTURN 

S.  270      840  WP=WP+.005 
S.  271  WRITE!6,841)  WP.IWKDAY 

S.  272      841  F0RMAT!25X,,**»*  THE  VALUE  OF  THE  WORK  PROGRESS  COMPONENT  IS  «,F5. 

12,'  FOR  DAY  •  ,  14,'  ****'  ) 
S.  273  DFSTROY  KTIME 

S.  274  RETURN 

S.  275      870  SI=WP*CI*.005 
S.  276  WRITE(6,101)SI , JWKDAY 

S.  277       101  FORMAT!/, 31X,>****  THE  VALUE  OF  THE  STATUS  INDEX  IS  •,F5.2,,  FOR  D 

1AY  •  ,14,'  ****•  ) 
S.  278  IF(ABS(CI-1. ) -• 1 ) 205  ,  205, 302 

S.  279      302  WRITE(6,303)  CI 
S.  280       303  FORMAT!/, 10X, *****  NOTE  --  VALUE  OF  COST  COMPONENT  IS  •fF6.3t<  *** 

1*'  ) 
S.  281       205  IF(ABS(WP-1. )-. 1)899, 899, 202 
S.  282      202  WRITEI6.203)  WP 
S.  283       203  FORMAT! /,10X, •****  NOTE  —  VALUE  OF  WORK  PR3GRESS  COMPONENT  IS  ',F 

16.3,'  ****•) 
S.  284      899  DESTROY  KTIME 
S.  285  RETURN 

S.  286  FNO 
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22 

s. 

23 

s. 

2* 

s. 

25 

s. 

26 

s. 

27 

s. 

28 

s. 

29 

s. 

30 

s. 

31 

s. 

32 

s. 

33 

s. 

34 

s. 

35 

s. 

36 

s. 

37 

s. 

38 

s. 

39 

s. 

4n 

s. 

41 

s. 

42 

s. 

43 

s. 

44 

s. 

45 

s. 

46 

s. 

47 

SUBROUTINE  PROGHO 

COMMON  MODE,NUMACT,NOACT,NUMAR, I  CODE, I FL OW .DATE M, DATED, 0 ATE Y, DNUM 
COMMON  NOHOL, J080UR, A, B,Ct D, E, F,G,H,K1 , K2, K3 ,K4,K5,K6, LINE (20) 
COMMON  NAME,NAME1,NAME2,NAME3,NAME4,NAME5, A3( 121,MAME,DBXXX(50) 
COMMON  TABLE, HOLD, I  ALPHA (16) , MONTH! 12I,RLXXX(23),INTXXX(20) 
COMMON  NARROW! P) .INCODEIP) , INGRIDIP) , KT I  ME ( ? ) , I DT I  ME ( P ) , IDNET(P) 
COMMON  SO1?  TIP) ,JSORTIP),KHOLOIP),M0UM(P),MA*R0W(P),ICAL!P) , IH3LIP) 
DYNAMIC  ARRAY   N ARROW, I NCODE , I NGR I D , K T I  ME , I DT I  ME, I  ONE T, SORT  I D ) , 
1JS0RT,KH0LD,MDUM, MARROW, ICAL, IHOL 
DOUBLE  PRECISION  NAME, NAME  1  ,  NAME2, NAME3, NAME4, NAME5, BLANK , MAME 
DOUBLE  PRECISION  I ALPH A, FMONTH, DBXXX 
INTEGER  F 
REAL  RLXXX 

EQUIVALENCE  (RLXXX(17),WP),(RLXXX(19J,C!) 
EQUIVALENCE  (DBXXXI 12),STATRY(1!) 
EQUIVALENCE  ( 1  PROG, I NTXXXI 10) ) 
DYNAMIC  ARRAY  STATRY 
KIND=INTXXX(20) 
DESTROY  STATRY 

DEFINE  STATRY, 10, FULL, LOW, STEP=5 
RELEASE  STATRY 

TAKE  THE  LARGER  OF  THE  TWO  DATES  AS  THE  TERMINAL  DATE. 
IF(D-E)30,40,50 

40  WRITE(6,41) 

41  FORMAT!/, IX, •  IDIOT  —  BOTH  DATES  ARE  THE  SAME.') 
ERROR  RETURN 

50  ILAS=D 

ISTA=E 

CO  TO  21 
30  ILAS=E 

ISTA=0 

CHECK  TO  SEE  THAT  TERMINAL  DATE  DOESN'T  EXCEED  J08DUR. 
21  IF(UAS-J0RDUR)1,?,2 

2  WRITE(6,3)  ILAS 

3  FORMAT! /, IX, 'TERMINAL  DATE  FOR  INDEX  REQUEST,  DAY  '.IS,',  IS  BEYON 
ID  THE  END  OF  THE  PROJECT.   REVISE  REQUEST  DATA.') 

ERROR  RETURN 
1  JI=ISTA 
I3=ILAS 

14  =  0 

15  =  0 

IF(  ILAS-IPRnG)62,62,61 
61  I2=IPR0G 

GO  TO  721 
6?  12=13 
721  IF(  (  ILAS-!STA)-100)4,4,5 

4  !NC=5 
WRITF(6,7)  INC 

7  FORMAT!/, IX, • INDEX  DATA  WILL  BE  PRESENTED  IN  ',12,'  DAY  INCREMENTS 
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s. 

48 

s. 

49 

s. 

50 

s. 

51 

s. 

52 

s. 

53 

s. 

54 

s. 

55 

s. 

56    C 

s. 

57 

s. 

58 

s. 

59 

s. 

60 

s. 

61 

s. 

62 

s. 

63 

s. 

64 

s. 

65 

s. 

66 

s. 

67 

s. 

68 

s. 

69 

s. 

70 

s. 

71    C 

s. 

72    C 

s. 

73 

s. 

74 

s. 

75 

s. 

76 

s. 

77 

s. 

78 

s. 

79 

s. 

80 

s. 

81 

s. 

82 

s. 

83 

s. 

84 

s. 

85 

s. 

86 

l.'l 

JJ=1 

GO  TO  8 
5  INC=10 

WRITEI6.7)  INC 

JJ  =  1 
8  IF! ILAS-ISTA)20,10,10 
10  0=ISTA 

CALL  PROGIX 

STORE  THE  STATUS  INDEX  AND  ITS  COMPONENTS  IN  THE  ARRAY  STATRY. 

IFIKIND-2)80,85,90 
80  STATRYI JJ)=CI 

GO  TO  95 
85  STATRYI JJ)=WP 

GO  TO  95 
90  STATRYI JJ)=WP*Cl 
95  ISTA=ISTA+INC 

JJ=JJ+1 

GO  TO  8 
20  CONTINUE 

IF(F)70,70,7l 
71  DEFINE  NARROW, JJ, FULL, LOW 

LINEI6)=JJ-1 

JTM=LINE(6I 

VALUES  BY  10000.  TO  ELIMINATE  DECIMAL  FARACTIONS. 

PUT  VALUES  FROM  STATRY  INTO  NARROW  PRIOR  TO  CALLING  PRGRAF  —  MULTIPLY  ALL 

DO  900  1=1, JTM 
900  NARROWd  )  =  STATRY(  I  1*10000. 

DESTROY  STATRY 

WRITEI6, 1003)  NAME 
1003  FORMAT!///, 46X,'****  INDEX  PLOT  FOR  PROJECT  •.AS,'  ****•,//) 

L  INEI  1)=JI 

LINE(2)=I2 

LINE! 3) =13 

LINE(4)=I4 

LINE(5)=I5 

ADD  TO  STACK! 1, 'PRGRAF*  ) 

TRANSFER  TO  STACK 
70  RETURN 

END 
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s. 

I 

SUBROUT 

s. 

2    C 

THIS  SU 

s. 

3    C 

INDEX  H 

s. 

4 

COMMON 

s. 

5 

COMMON 

s. 

6 

COMMON 

s. 

7 

COMMON 

s. 

8 

COMMON 

s. 

9 

COMMON 

s. 

10 

DYNAMIC 
IJSORT.K 

s. 

11 

DOUBLE 

s. 

12 

DOUBLE 

s. 

13 

INTXXX( 

s. 

14 

PETURN 

s. 

15 

END 

INE  PRSAVE 

BROUTINE  SAVES  THE  VALUE  SET  IN  <5  AFTER  A  REQUEST  FOR  A  STATUS 

AS  BEEN  MAOE. 

MOOE,NUMACT,NOACT,NUMAR,ICODE, I FL OW , DATE M, DATED, DATE Y , ONUM 

NOHOL,  JOBOUR,  A,B,C,D,E,F,G,H,K1,K2,K3,K<»,K5,K6,LINE{20) 

NAME, NAME  1, N AME 2, NAME 3, NAME* , NAME  5, A3( 12) , MAME.DBXXXI 50) 

TABLE, HOLD, I  ALPHA! 1 6 ) , MONTH)  1 2 )  ,  RLXXXI 20 ) , I NTXXXI 20  ) 

NARR0W(P),INC00E(P),INGRI0IP),KTIME(P),I9TIME(P),IDNET(P) 

SORT! P) , JSORT(P) , KHOLDt PJ ,MDUM(P) ,MARROrf(P),ICAL(P», IHOL(P) 

ARRAY   NARROW, IN: ODE, INGRID,<TIME, I DT I  ME, IDNET , SORT ( D) , 
HOLD, MDUM, MARROW, ICAL, IHOL 

PRECISION  NAME, NAM El, NAME 2, NAME 3, NAME 4, NAME 5, BLANK, MA ME 
PRECISION  I  ALPHA, FMONTH.DBXXX 
20)=K5 
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25 
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26 
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27 
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28 
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29 
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30 
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31 
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32 
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33 
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34 
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35 
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36 

s. 

37 
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38 
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39 
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40 
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41 

s. 

42 

s. 
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44 

5. 

45 

s. 

46 

s. 

47 

s. 

48 

SUBROUTINE  PR0GET1IA, 
THIS  SUBROUTINE  RETRI 
STORED  IN  NAME8. 
SETTING  IA  =  0  WILL  C 
THEN  COLUMNS  IB  THRU 
COMMON  MOOE.NUMACT.NO 
COMMON  NOHOL, JOBOUR, A 
COMMON  NAME, NAME1, NAM 
COMMON  TABLE, HOLO.IAL 
COMHON  NARROW! P) , INCO 
COMMON  SORT(P) , JSORT! 
DYNAMIC  ARRAY   NARROW 
USORT.KHOLD.MDUM.MARR 
DYNAMIC  ARRAY  IDPROG, 
DOUBLE  PRECISION  NAME 
DOUBLE  PRECISION  IALP 
DOUBLE  PRECISION  NAME 
EQUIVALENCE  (DBXXXI9) 
EQUIVALENCE  (DBXXX122 
EQUIVALENCE  (DBXXX(23 
NAME8=NAME 
CALL  A00NUMINAME8.8) 
DISK  FILE  INP0I2.NAME 
IF(  IEXIST-1120,20,51 
KPROG  ARRAY  OOESN'T  E 

20  RFTURN 

51    DISK    GEU2.1FIRST.LIN 
DEFINE     IDPROG, NOACT.F 
DISK    GET (2, LINE! 1>,ID 
IF( IA)53,53,54 
IF    JUST    THE     IDPROG'S 

53  RETURN 

IF  OTHER  INFORMATION 
THE  ARRAY  CALLED  KPRO 

54  CONTINUE 

DEFINE  KPR0G.9.P0INTE 
DO  62  I=IB,IC 

62  DEFINE  KPROG I  I ) , NOACT 
NBYTE1=( IB-l )*4+l 
NBYTE2=IC*4 

DO  65  1=1, NOACT 

IF( IDPROG! I ) 165,65,63 

63  DISK  GETI2, IDPROG! I), 
00  64  J=I8,IC 

64  KPROG! J,  I)=LINE< J) 

65  CONTINUE 
RELEASE  KPROG 
RELEASE  IDPROG 
RETURN 


IB.IC1 

EVES  THE  PROGRESS  DATA  WHICH  HAS  BEEN  INPUT  ANO 


AUSE  JUST 
IC  OF  NAM 
ACT.NJMAR 
.B.C.D.E, 
E2.NAME3, 
PHA( 16) ,M 
DE(P), ING 
P) ,KHOLD( 

,in:ooe, i 

OW,  ICAL, I 

KPROG 
,NAME1 ,NA 
HA.FMONTH 
8 

,NAME8) 
1  , KPROG!  1 
), IDPROG! 


THE  IDPROG'S  TO  BE  RETRIEVED.   IF  IA  *  1, 
E8  WILL  BE  RETRIEVED  AND  STORED  IN  KPROG. 
, I  CODE, I  FLOW, OATEM, OATED.DAT EY.DNUM 
F,G,H,K1,K2,K3,K4,K5,K6, LINE  (201 
NAME4.NAME5, A3  1 12) , M AME , DBXXX! 50 ) 
0NTH(12),RLXXX(20),INTXXX!20) 
RID(P),KTIME!P),IDTIMEIP),IDNET(P) 
P).MDUM(P) , MA* ROW (P), ICAL (P), IHOL(P) 
NGRID,KTIME,IDTIME,I3NET,S0RT!D), 
HOL 

ME 2, NAME 3, NAME 4, NAME 5, BLANK, NAME 
,DBXXX 


I  ) 
I)  I 


8.IEXIST,  IFIRST.LAST) 
XIST. 

E!l  ),l,4) 

ULL.LOW 
PROG! 1 ) ,0,0) 


WERE  REQUESTED, 
WAS  REQUESTED  R 

•J  • 

R,LOW 
.FULL, LOW 


LINE! IB) ,N8YTEl,NBYTE2) 


RETURN  NOW. 
ETRIEv!  IT  FROM  NAME8  AND  STORE  IT  IN 
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10 

2 

s. 

20 

s. 

21 

3 

s. 

22 

s. 

23 

s. 

24 

s. 

25 

s. 

26 

s. 

27 

s. 

28 

c 

s. 

29 

s. 

30 

c 

s. 

31 

s. 

32 

s. 

33 

s. 

34 

s. 

35 

99 

s. 

36 

s. 

37 

100 

s. 

33 

c 

s. 

39 

98 

s. 

40 

C 

s. 

41 

80 

s. 

42 

C 

s. 

43 

s. 

44 

s. 

45 

50 

s. 

46 

s. 

47 

s. 

43 

SUBROUTINE  PROGOl 

AS  OF  JAN.  26  1966 
THIS  SUBROUTINE  REVISED  TO  TREAT  LAGS 

W.H.  LINOER  FOR  SUBSYSTEM  'PROJECT*  OF  ICES,  JULY  1966 
SHORTENED  SUBROUTINE,  DEBUGGED  OCTOBER  1966 
FFLOW  MAKES  THE  FORWARD  SCHEDULING  COMPUTATIONS 

COMMON  MOOE,NUMACT,NOACT,NUMAR, I  CODE, IFLOW , DAT  EM, DATED, DATE V, DNUM 
COMMON  NOHOL, JOBDUR, A,B,C,D,E,F,G,H,K1,K2,K3,K4,K5,K6,LINE(20» 
COMMON  NAME,NAME1,NAME2,NAME3,NAME4,NAME5, A3< 1 2 ) , M AME , DBXXXI 50 > 
COMMON  TABLE, HOLD,  I  ALPHA! 161, MONTH! 12),RLXXX(20),INTXXX<20> 
COMMON  NARROW! P) , INCOOE(P),  INGRID(P) , KT I  ME < P ) , I  DTI  ME  I P ) , IDNET(P) 
COMMON  SORT(P) , J SORT ( P ) , KHOLDI P) ,MDUM!P),MARROW(P),ICAL!P», IHDL(P) 
DYNAMIC  ARRAY   N ARROW, I NCOOE , I NGR I D , < T I  ME , I DT I  ME , I DNE T, SORT ( D) , 
USORT.KHOLD.MDUM, MARROW , ICAL, IHOL 
DOUBLE  PRECISION  NAME, NAME  1 , NAME2 , NAME3, NAME4, NAMES, BLANK , MAME 
DOUBLE  PRECISION  I  ALPHA , FMONTH, DBXXX 

INITIALIZE  STARTS  AS  1  AND  FINISHES  AS  1  ♦  DURATION 
BRANCH  ON  DATEM  FOR  WORK  DAY  START 
IF(DATEM)  2,2,3 
NDAY=DATED 
GO  TO  4 
NDAY=l 
4  00  10  I=1,N0ACT 

IF(KTIME(2,I ) 17,6,7 

6  KTIME(2,I )=NDAY 

7  IF(KTIME!4,I 1 1 10,8,10 
3  KTIMEI4, l)=KTIME(l,I)*KTIME(2,Il 

10  CONTINUE 

SEE  IF  THIS  IS  A  NETWORK  WITH  NO  ARROWS.  IF  SO,  S<IP  THESE  CALCULATIONS 

IF(NI)MAR)51,  51,52 

NOW  WORK  DOWN  ARROW  LIST  CALCULATING  ES  AND  EF  FROM  EF  OF  SOURCES 
52  00  50  I  =  l,N'JMAR 

K=NARR0W<1  ,  I  1 

KK  =  NARR0W(2, I  1 

TF(MODE) 100,99, 100 

LAG=NARR0W(3,I) 

GO  TO  9  3 

t  AG  =  0 

SFF  IF  ES  AT  ARROW  HFAD  IS  LESS  THAN  EF  OF  ARROW  TAIL  ACTIVITY 

IF(KTIME(4,K)-KTMF(2,KK)*LAG)50,50,80 

YES,  SO  PUT  EF  OF  ARROWTAIL  ACTIVITY  INTO  ES  OF  ARROWHEAD  ACTIVITY 

KTIME(2,KK)=KTIME(4,K)+LA3 

NOW  AOO  DURATION  TO  GET  EF,  IF  EF  HAS  NOT  BEEN  SET  LARGER 

IF(KTIMF(4,KK)-KTIME(?,KK1-KTIMEI1,KK»)82,5D,50 
32  KTIME14,KK)=KTIME(2,KK)+KTIME(1,KK> 

CONTINUF 
51  PELEASE  NARROW 

RFLFASF  KTIME(l) 

RFLFASF  KTTMFI2) 


90 


s. 

49 

C 

s. 

50 

s. 

51 

s. 

52 

s. 

53 

65 

s. 

54 

60 

s. 

55 

s. 

56 

s. 

57 

NOW  FIND  JOB  DURATION  THE  LATEST ( GREATEST )  EARLY  FINISH 

J3BDUR=1 

DO  60  I=1,N0ACT 

IF( J0BDUR-KTIME«4,IJ ) 65, 60, 60 

J0BDUR=KTIMEC4, I) 

CONTINUE 

RELEASE  KTIMEI4) 

RETURN 

END 


90 


s. 

49 

C 

s. 

50 

s. 

51 

s. 

52 

s. 

53 

65 

s. 

5<V 

60 

s. 

55 

s. 

56 

s. 

57 

NOW  FIND  JOB  DURATION  THE  LATEST ( GRE ATEST )  EARLY  FINISH 

J3BDUR=1 

00  60  I=l,NOACT 

IF<  JOBDUR-KTIMEC.,!) ) 6 5, 60, 60 

J0BDUR=KTIKEC4, II 

CONTINUE 

RELEASE  KTIMECV) 

RETURN 

END 
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/ASSIGN   2=PR0JECT 
/ASSIGN   3=ICES 
/RESTORE  SYS1 

COP 

SYSTEM  «PR3J«  'UNDER' 

REPLACF  •SELINX'   t   SFLINX  CALLS  COMPUTATIONAL  PROGRAMS  FOR  STATUS  INDEX. 

CONDITION  RCAL  'E*  GE  1   $  ENTRY  HERE  IMPLIES  WE  HAVE  MULTIPLE  DATES. 

EXECUTE  'PROGMD'   t  CALL  THE  MULTIPLE  DATE  SURROUTINF. 

EXECUTE  'PROGOJ'   $  DESTROY  THF  JSORT  ARRAY. 
OTHFRWISE  $    ENTRY  HERF  IMPLIES  WF  HAVE  A  SINGLE  DATE. 

EXECUTE  'PROGIX'   i    EXECUTE  COMPUTATIONAL  SUBROUTINE  TO  FIND  INDEX. 

EXECUTE  'PROGOJ'   %    DESTROY  THE  JSORT  ARRAY. 

HMD  CONDITION 

RETURN 

FILE 
1 

FINISH 
GOOD-RYE 


ELAPSED  TIME=   00.00  MINUTES. 
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/ASSICN   2=P°0JECT 
/ASSIGN   3=ICFS 
/RESTORE  SYSl 

COP 

SYSTEM  'PROJ'  'LINGER' 

REPLACE  'PROGRESS' 

IGNORE  'REP'  "DA1  'AS'  'OF'  'FOR'  'W 

PRESET  REAL  'H«  EO  -1   *  SET  SO  AS  TO  SKIP  PRCLEC  IN  MPOATE'. 

EXISTENCE  'PRO'  'FIN'  'STA«  'COS'  SET  '12'  STA  5 

CONDITION  'I?'  LE  4 

DATA  CHECK  SFT  'K4'   $  SEE  IF  THERE'S  A  DATE  GIVEN 

CONDITION  INTEGER  'K4'  EO  -1 

MESSAGE  *  DATE  MISSING  IN  *REPORT*  COMMAND.   NO  ACTION  TAKEN.' 

RETURN   $  CEASE  PROCESSING  THIS  COMMANO. 

OTHERWISE 

END  CONDITION 

CALL  'IPDATE' 

CONDITION  RFAL  ' R'  NE  0. 

FXECUTE  'PPPOPK' 

OTHFRWISE 

MOVE  'A'  TO  '0' 

END  CONDITION 

PRESET  'Kl«  FO  1 

EXECUTE  "PROGST"   %     INITIALIZE  FOR  PROGRESS  INPUT  -  CREATE  NAMES. 

REPEAT  TABULAR 

IGNORE  'ACT'  'OAY' 

DATA  CHECK  SET  'K41    t     IS  THIS  THE  LAST  DATA  CARD. 

CONDITION  INTEGER  «K4'  LT  2   t  NOT  SATISFIED  IF  NEXT  DATA  IS  ACT.  N 

IGNORE  'LAS' 

REPEAT  EXIT 

ENO  CONDITION  OPTIONAL 

MO     ID    3F/\I_     'A'     '.FO        *    FI"ST    NODE     NUMBER. 
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PRESET  REAL  »B'  EQ  0.   *  SET  B  =  0.  SO  YOU  CAN  CHECK  IT  LATER. 
CONDITION  'MODE'  EQ  1   $  IS  NETWORK  A/A 

NO  10  REAL  'B'  REQ   *  SECONO  NODE  NUMBER. 
END  CONDITION  OPTIONAL 
PRESET  »K1«  FQ  2   J  CHECK  AND  STORE  ACTIVITY  NUMBER 
EXECUTE  'PROGST' 

CONDITION  'KV  LT  1   t  SKIP  DATA  CARD  IF  BAD  ACTIVITY  NO. 
OTHERWISE   $  IF  ACTIVITY  NO.  IS  VALID,  CONTINUE. 

CONDITION  '12'  EQ  1   J  GENERAL  PURPOSE  INPUT  COMMAND. 

CALL  'DATAST*   t  SUBROUTINE  CDL  TO  PROCESS  PROGRESS  DAT 
OR  CONDITION  »I2«  FQ  2   S  COMMAND  IS  REPORT  FINISH 
IGNORE  »F« 
CALL  •IPDATE' 

CONDITION  REAL  'B'  EO  0. 

MOVE  'A'  TO  '0' 
OTHERWISE 

EXECUTE  'RRPORK' 
END  CONDITION 
PRESET  »K1'  EO  3 

EXECUTE  'PROGST'   $  STORE  FINISH  DATE  IN  LINE2. 
OR  CONDITION  'I?'  EQ  1   *  COMMAND  IS  REPORT  START 
IGNORE  'S' 
CALL  'IPDATE' 

CONDITION  REAL  '8'  EQ  0. 

MOVE  'A'  TO  «D' 
OTHERWISE 

EXECUTE  'PRPORK' 
END  CONDITION 
P^ESFT  »K1'  EQ  4   $  STORE  START  DATE  IN  LINE3. 
EXFTIITE  'PROGST' 
0'  CONDITION  M"  rQ  «   $  COMMAND  IS  REPORT  COST 
[SNORE  *C 
MD  ID  RFAL  'C 
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PRESET  »Kl«  EO  5   $  STORE  COST  DATA. 
EXECUTE  "PROGST' 
END  CONOITTON  OPTIONAL 
PRESET  »KI«  FO  6 

EXECUTE  'PROGST'   t  STORE  INFO  ON  THE  DISK 
END  CONOITION 
ENO  REPEAT  TABULAR 
PRESET  'Kl'  EO  7   $  STORE  ID  OF  UPDATED  ACTIVITY  IN  DIRECTORY. 
EXECUTE  'PROGST' 
OTHERWISE   *  IF  INVALID  COMMAND  PRINT  ERROR  MESSAGE. 

MESSAGE  ■  INVALID  08JFCT  NAME  FOR  **REPORT**  COMMAND.   HO    ASTION  TAKEN." 
END  CONOITION 
NEXT  RECORD 
NEW  COMMAND 
RETURN 

FILE 

1 

FINISH 
GOOD-BYE 


ELAPSED    TIME=       00.00    MINUTES. 
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/ASSIGN   2=PR0JECT 
/ASSIGN   3=ICES 
/RESTORE  SYSl 

COP 

SYSTEM  'PROJ'  'UNDER' 

REPLACE  'DATAST'  t    SUBROUTINE  COL  TO  PROCESS  PROGRESS  DAT 

REPEAT 

t   SEE  IF  THE  END  OF  CA"D  FOLLOWS.   IF  YES,  EXIT  THE  REPEAT  LOOP. 

DATA  CHECH  SET  'KiS' 

CONDITION  INTEGER  'K6'  EQ  -1 

REPEAT  EXIT 

OTHERWI SE 

END  CONDITION 

MODIFIER  'FIN' 

CALL  MPDATE' 

CONDITION  REAL  •£»•  EO  0. 

MOVF  'A'  TO  'D' 

OTHERWISE 

EXECUTE  'PRPORK' 

END  CONDITION 

PRESET  'Kl'  EO  3 

EXECUTE  'PROGST'   $  STORE  FINISH  DATE. 

OR  MODIFIER  'STA' 

CALL  •  IPDATE' 

CONDITION  REAL  'B'  EO  0. 

MOVF  'A'  TO  'D' 

OTHERWISE 

EXECUTE  'PRPORK' 

END  CONDITION 

PRESFT  'Kl'  ET  <.   S  STORE  START  DATE. 

EXFCUTE  'PROGST' 

OP  MOO  'COS' 
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NO  (0  REAL  'C 

PRESET  'Kl'  EO  5   *  STORE  COST  DATA. 
EXECUTE  'PROGST' 
OR  CONDITION  'K4'  EO  29 
NO  ID  REAL  'C 

PRESET  'Kl'  EO  5  %    STORE  COST  DATA. 
EXECUTE  'PROGST' 
PR  CONDITION  'K4'  EO  31 
CALL  MPDATE' 
CONDITION  REAL  '6'  EQ  0. 

MOVE  'A'  TO  'D' 
OTHERWISE 

EXECUTE  'PRPORK' 
FNO  CONDITION 

PRESET  'Kl'  EO  4  i    STORE  START  DATA. 
EXECUTE  'PROGST' 
OR  CONDITION  •«<.'  EO  3? 
CALL  'IPOATE' 
CONDITION  REAL  'B'  EO  0. 

MOVE  'A'  TO  '0' 
OTHERWISE 

EXECUTE  'PRPORK' 

END  CONDITION 

PRESET  'Kl'  EO  3  %    STORE  FINISH  DATE. 

EXFCUTE  'PROGST' 

OTHERWISF   t  NO  MODIFIER  INPUT. 

t   THIS  POTION  OF  THE  COL  IS  USED  WHEN  THERE  ARE  NO  MODIFIERS  GIVEN  WITH  DATA. 

MESSAGE  'NO  MODTFIFRS.   ASSUMED  INPUT  ORDER  TO  8E  START 
,  FINISH,  COST  [OPTIONAL).' 

CALL   MPDATF' 

CONDITION    REAl      '8'     EO    0 

MOVE     'A'     TO    '0' 

HTHfcPWf <E 
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END  CONDITION 

PRESET  «K1 •  EO  4 

EXECUTE  »PROGST«   $  STORE  THE  START  OATA. 

CALL  MPOATE' 

CONDITION  REAL  'B«  EO  0 

MOVE  'A*  TO  'D* 
OTHERWISE 

EXECUTE  'PRPORK' 
END  CONDITION 
PRESFT  'Kl'  EO  3 

EXECUTE  'PROGST*   $  STORE  FINISH  DATA. 
DATA  CHFCK  SET  'G' 
CONDITION  INTEGER  'G*  GE  2 
t   G  LARGER  THAN  1  IMPLIES  THAT  A  NUMBER  —  HERE  A  COST  —  FOLLOWS. 

NO  ID  REAL  "C  REO 

PRESET  'KP  EO  "5 

EXECUTE  'PROGST'   *  STORE  COST  DATA  IF  IT  EXISTS. 
OR  CONDITION  INTEGER  • G'  EO  -1 
OTHEPWISF 
MESSAGE  •  ***  ERROR  IN  PREVIOUS  DATA  CARD.   PROCESSING  CONTINUES  ♦  **• 

END  CONDITION 
REPEAT  EXIT 
END  CONDITION 
END  MODIFIER  BLOCK 
END  REPFAT 
RETURN 

FILE 

I 

FIN! SH 


1 


GOOD-SYF 


ELAPSFO  TIMr  =   oo.qo  >1INIITFS, 
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APPENDIX  B 

There  is  a  special  convention  for  writing  commands  in  a  text  such 
as  this.  Words  in  parenthesis  are  optional  and  may  be  omitted.  The 
set  of  characters  M (,projname,)M  is,  of  course,  the  name  of  the  parti- 
cular project  in  question  enclosed  in  quotes.  This  information  may  be 
omitted  if  the  project  name  is  available  from  a  previous  command.  Fi- 
nally, any  word  appearing  in  small  letters  (such  as  "date")  indicates 
where  alphameric  or  numeric  data  must  be  provided. 
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